Versão atual:

Work area not in use on MSCOPYFILE(APLIB070.PRW)

Estou escrevendo um fonte para copiar algumas tabelas, porém está dando este erro do título. Alguém sabe o que pode ser o erro? Segue trecho do fonte:

#include "protheus.ch"

User Function TestCopy()

DBUSEAREA(.T.,"CTREECDX",'SED0101', "SED", .F., .T.)

cFileIni := 'system\sed0101.dtc'
cFileFim := 'BACKUP\sed0101_bkp.dtc'

 If ! MsCopyFile(cFileIni, cFileFim)
     MsgAlert("O arquivo não pôde ser copiado.")

    Else    
    MsgAlert("O arquivo foi copiado com sucesso.")

    EndIf

    Return

ERRO: Capturar.PNG

Versão (1):

Ver a versão formatada

Work area not in use on MSCOPYFILE(APLIB070.PRW)

Comentário

new question