源为空写日志

2022-01-15 19:37:16 +08:00
parent c56fb05dee
commit 595079bcad
2 changed files with 6 additions and 2 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