源为空写日志
This commit is contained in:
parent
c56fb05dee
commit
595079bcad
|
|
@ -1,8 +1,7 @@
|
||||||
<h1>FTP数据备份工具</h1>
|
# FTP数据备份工具
|
||||||
|
|
||||||
使用步骤:
|
使用步骤:
|
||||||
1、TsFTP目录放入解释器所在目录的funcext中,更新替换plugin\FileMgr.dll;
|
1、TsFTP目录放入解释器所在目录的funcext中,更新替换plugin\FileMgr.dll;
|
||||||
1、TsFTP目录放入解释器所在目录的funcext中;
|
|
||||||
2、(可选)修改默认配置信息:TsFTP\TsFTPBackupConfig.tsf;
|
2、(可选)修改默认配置信息:TsFTP\TsFTPBackupConfig.tsf;
|
||||||
3、参考examples\example1.tsl编写备份脚本;
|
3、参考examples\example1.tsl编写备份脚本;
|
||||||
4、(可选)添加备份脚本的定时调度。
|
4、(可选)添加备份脚本的定时调度。
|
||||||
|
|
@ -48,6 +48,11 @@ Type TsFTPBackup = Class
|
||||||
Begin
|
Begin
|
||||||
path := ExtractFilePath(src);
|
path := ExtractFilePath(src);
|
||||||
files := filelist('',src);
|
files := filelist('',src);
|
||||||
|
if not files then begin
|
||||||
|
msg := 'filelist('+src+')为空。';
|
||||||
|
log(msg,'note');
|
||||||
|
return 2;
|
||||||
|
end;
|
||||||
try
|
try
|
||||||
ftpObj.MakeDir(destPath);
|
ftpObj.MakeDir(destPath);
|
||||||
except
|
except
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue