API函数CopyFile的使用
CopyFile说明 复制一个文件到新的地方; 目标可以是一个文件或端口. 返回一个逻辑值 (0 失败, 其它值则成功) 第三个参数也是一个逻辑值 - 0 失败其它值成功. 当复制到一个端口或队列的 UNC时, 第三个参数必须是 0.
失败原因可以调用 GetLastError() 来检查
宿主文件 KERNEL32.DLL
在 Visual FoxPro中的定义
DECLARE INTEGER CopyFile IN KERNEL32.DLL ;
STRING @SourceFileName, ;
STRING @DestFileName, ;
INTEGER bFailIfExists
Visual FoxPro 示例
DECLARE INTEGER CopyFile IN KERNEL32.DLL ;
STRING @SourceFileName, ;
STRING @DestFileName, ;
INTEGER bFailIfExists
cMySourceFileName = "C:\Program Files\Microsoft Visual Studio\Vfp98\VFP6.EXE"
cMyPortOrUNC = "C:\TMP\VFP6.EXE"
IF CopyFile(cMySourceFileName,cMyPortOrUNC,0) # 0
wait window "文件复制成功"
ELSE
wait window "文件复制失败"
ENDIF
页:
[1]