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

2022-03-24 21:18:22 +08:00
parent 922da46aff 595079bcad
commit 65e36735ae
2 changed files with 8 additions and 3 deletions
@@ -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