CopyFile
if Not DirectoryExists('D:mylicaiBackUp') then//如果目錄不存在
if not ForceDirectories('D:mylicaiBackUp') then//創建目錄
begin
showmessage('創建D:mylicaiBackUp失敗,備份不成功!!');
exit;
end;
if FileExists('D:DataBasemyTable.dbf') then //檢測文件是否存在
if CopyFile(pchar('D:DataBasemyTable.dbf'),Pchar('D:BackUpmyTable.dbf'),false)=0 then //copy 文件,不成功返回0
showmessage('備份D:mylicaiDataBasemyTable.dbf失敗,備份不成功!!');[@more@]
if not ForceDirectories('D:mylicaiBackUp') then//創建目錄
begin
showmessage('創建D:mylicaiBackUp失敗,備份不成功!!');
exit;
end;
if FileExists('D:DataBasemyTable.dbf') then //檢測文件是否存在
if CopyFile(pchar('D:DataBasemyTable.dbf'),Pchar('D:BackUpmyTable.dbf'),false)=0 then //copy 文件,不成功返回0
showmessage('備份D:mylicaiDataBasemyTable.dbf失敗,備份不成功!!');[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/8392788/viewspace-916146/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
Close
下一篇：
没有了~
请登录后发表评论
登录
全部评论
