ftp automation

ScriptFTP

The professional tool to automate FTP, SFTP, FTPS and schedule FTP batch jobs

The forum is now read only. Please, go to the the main ScriptFTP website if you need help.

How to check if directory is empty

Post here if you experience file transfer problems or unexpected errors.
Hi,
I want to incorporate a check in my script.
If local/remote directory is {empty}
then
Wait...
Else
upload files

I know that we can use the getlist command
FTP Script
  1. GETLIST($mylist,LOCAL_FILES,"*.*")
GeSHi © Codebox Plus Extension
but then??
how can i check the $mylist if it is empty?
Will it work with something like this
FTP Script
  1. GETLIST($mylist,LOCAL_FILES,"*.*")
  2. $result=PUTFILE($txtfile)
  3.     IF($result=="OK")
  4.         upload files
  5.     ELSE
  6.       PRINT("Directory is empty.")
  7.     END IF
  8.   
GeSHi © Codebox Plus Extension
Thanks
Using the COUNTELEMENTS command. Very easy:
FTP Script
  1. # This is a label it marks a point in the script. It is used to jump here.
  2. :start
  3.  
  4. # Get the local file listing, store it in $mylist
  5. GETLIST($mylist,LOCAL_FILES)
  6.  
  7. # Calculate the number of elements in the list
  8. $number_of_elements=COUNTELEMENTS($list)
  9.  
  10. IF($mylist==0)
  11.   PRINT("No files found. Waiting 5 seconds.")
  12.   SLEEP(5)
  13.   PRINT("Trying agin")
  14.   GOTO :start  
  16.  
  17.  
  18. PRINT("Found ".$number_of_elements." files")
  19.  
  20. # Upload the files
  21. OPENHOST("ftp.myhost.com","myuser","mypass")
  22.  
  23. FOREACH $file IN $mylist
  24.     PUTFILE($file)
  26.  
  28.  
GeSHi © Codebox Plus Extension
WOO

this is great :)
When i have finalized my script i will send it to you :)
Think it's a nice example and good usable for some people :)

I don't know much about programming but ScriptFTP i do understand...with some help of you haha
Know i need to know how to upload a whol directory at once, similiar to dos command "mput"

thanks
Hi Admin.

I implemented your coding but for some reason it's not processing if the results is larger then fe 1.
It see's that there are 2 files but then it goes back to : startdir and again checks and sees it has 2 files.
it will not go to :checkconnection.

I tried also the other way around. but then it keeps processing and does no wait..
Any idea? I tried also a WHILE but that didn't help either.

Thanks
FTP Script
  1. ########################################################################################
  2. # Check if the directory is empty, or if it contains files to process
  3. ########################################################################################
  4. :startdir
  5. LOCALCHDIR($local_dir)
  6. GETLIST($checklist,LOCAL_FILES)
  7. $number_of_elements=COUNTELEMENTS($list)
  8. IF ($checklist<=1)
  9.   SLEEP(10)
  10.   GOTO :startdir
  11.   ELSE
  12.   GOTO :checkconnection
  14. ########################################################################################
  15. # Check if Connection is live
  16. ########################################################################################
  17. :checkconnection
  18. LOGTO($logfile,APPEND)
  20.    PRINT("Connection is still valid")
  21.    GOTO :batch1
  23.    PRINT("Connection is broken. Reconnecting.")
  24.    GOTO :reconnect
  25.    END IF
  27. ########################################################################################
  28. # Create trigger files for each original file and move the files to a TEMP folder
  29. ########################################################################################
  30. :batch1
  31. LOCALCHDIR($local_dir)
  32. GETLIST($mylist,LOCAL_FILES,"*.txt")
  33. FOREACH $txtfile IN $mylist
  34.     EXEC("move ".$txtfile." D:\abg\SOIRedPrairie\export\temp\".$txtfile)
  35.     $windows_filename=TEXTCUT($txtfile,1,TEXTLENGTH($txtfile)-4)
  36.     $trgfilename=$windows_filename.".trg"
  37.     EXEC("D:\FTP_Upload\scripts\touch.exe D:\abg\SOIRedPrairie\export\temp\".$trgfilename)
  39. #########################################################################
GeSHi © Codebox Plus Extension
Hello,

If I have understood correctly you wish to check if the directory is empty:
IF ($checklist<=1)
For me you are checking for 1 or less, :?

HTH.

Zythan
HI Zythan,

Indeed I want to check if directory is empty but during my tests i even tried to look for <=1
Nothing works..
Try yourself the script i placed here, you will see that it never
FTP Script
  1. :startdir
  2. LOCALCHDIR($local_dir)
  3. GETLIST($mylist,LOCAL_FILES)
  4. $number_of_elements=COUNTELEMENTS($list)
  5.  
  6.  
  7. IF($mylist>=1)
  8.   GOTO :files
  10.   PRINT("No files found. Waiting 5 seconds.")
  11.   SLEEP(5)
  12.   PRINT("Trying again")
  13.   GOTO :startdir  
  15.  
  16. :files
  17. PRINT("Found some files")
  18. goto :startdir
GeSHi © Codebox Plus Extension
I think it's somewhere in the if $mylist>=1 or in the counting of the elements.
Thanks
Okay, I found the error :)

With the code below it realy checks and executes the correct path....
FTP Script
  1. # Get the local file listing, store it in $mylist
  2. GETLIST($mylist,LOCAL_FILES)
  3.  
  4. # Calculate the number of elements in the list
  5. $number_of_elements=COUNTELEMENTS($mylist)
  6.  
  7. IF($number_of_elements==0)
  8.   PRINT("No files found. Waiting 5 seconds.")
  9.   SLEEP(5)
  10.   PRINT("Trying again")
  11.   GOTO :start  
  13.  
  14. PRINT("Found ".$number_of_elements." files")
  15.  
  16. # Upload the files
  17. OPENHOST("ftp.myhost.com","myuser","mypass")
  18.  
  19. FOREACH $file IN $mylist
  20.     PUTFILE($file)
  22.  
  24.  
GeSHi © Codebox Plus Extension
 Return to “Troubleshooting”
 - All times are UTC -