А еще лучше - отказаться от встроенной возможности FoxPro. Потому, что они не учитывают возможные ошибки при копировании (атребуты файла или наличие файла с таким же именем в каталоге куда копируется файл, нехватка места и т.д.)
Вот как делаю я в таких случаях:
| Код |
*Объявляю функции из WinAPI
*Смотри как это делается - в будующем может пригодится
DECLARE SHORT GetLastError IN Win32API AS GetLError
DECLARE SHORT CopyFile IN Win32API AS CopyDFile ;
String cFile, String @cToFile, Integer FlagExist
DECLARE INTEGER SetFileAttributes IN Win32API as SetFileAttribut ;
String lpFileName, Integer dwFileAttributes
**********************************************************
lcProgram=ADDBS(JUSTPATH(FULLPATH(SYS(16,0))))
CD (lcProgram)
*cPathName - имя файла
*Проверяем наличия файла с тем же именем
IF ADIR(laFile2, ALLTRIM(lcProgram + cPathName)+"*.*") > 0
*Устанавливаем атребуты файла в NORMAL
SetFileAttribut(lcProgram + cPathName + laFile2[i1,1], 0 )
*Копируем файл
m.kw = CopyDFile(lcPath + cPathName + laFile2[i1,1], ;
lcProgram + cPathName + laFile2[i1,1],0)
IF EMPTY(m.kw)
m.err = GetLError()
MESSAGEBOX("Ошибка копирования файла"+CHR(13)+ "Код ошибки: "STR(m.err), "Внимание!", 16)
ENDIF
endif
|
примерно так, код выдернут из живого проекта, но вроде бы сильной привязки нет - разобратся можно |
)