From 595079bcad312f8cdc52ecd10512ecec351c62c8 Mon Sep 17 00:00:00 2001 From: zzh Date: Sat, 15 Jan 2022 19:37:16 +0800 Subject: [PATCH] =?UTF-8?q?=E6=BA=90=E4=B8=BA=E7=A9=BA=E5=86=99=E6=97=A5?= =?UTF-8?q?=E5=BF=97?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- README.md | 3 +-- funcext/TsFTP/TsFTPBackup.tsf | 5 +++++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 4adb091..d0924ac 100644 --- a/README.md +++ b/README.md @@ -1,8 +1,7 @@ -

FTP数据备份工具

+# FTP数据备份工具 使用步骤: 1、TsFTP目录放入解释器所在目录的funcext中,更新替换plugin\FileMgr.dll; -1、TsFTP目录放入解释器所在目录的funcext中; 2、(可选)修改默认配置信息:TsFTP\TsFTPBackupConfig.tsf; 3、参考examples\example1.tsl编写备份脚本; 4、(可选)添加备份脚本的定时调度。 \ No newline at end of file diff --git a/funcext/TsFTP/TsFTPBackup.tsf b/funcext/TsFTP/TsFTPBackup.tsf index 26f06f6..dad0766 100644 --- a/funcext/TsFTP/TsFTPBackup.tsf +++ b/funcext/TsFTP/TsFTPBackup.tsf @@ -48,6 +48,11 @@ Type TsFTPBackup = Class Begin path := ExtractFilePath(src); files := filelist('',src); + if not files then begin + msg := 'filelist('+src+')Ϊա'; + log(msg,'note'); + return 2; + end; try ftpObj.MakeDir(destPath); except