修复外网环境上传失败问题

README.md

@@ -1,9 +1,9 @@
-<h1>FTP数据备份工具</h1>
+# FTP数据备份工具
 
 使用步骤：  
 1、TsFTP目录放入解释器所在目录的funcext中；  
 2、（可选）修改默认配置信息：TsFTP\TsFTPBackupConfig.tsf；  
 3、参考examples\example1.tsl编写备份脚本；  
 4、（可选）添加备份脚本的定时调度。  
-
+  
-注：确保plugin\FileMgr.dll为20220110及以后的版本，否则需更新或临时替换。  
+注：确保plugin\FileMgr.dll为20220110或以后的版本，否则需更新或临时替换。  

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