FTP access

[ankachen]

Here is some simple code I wrote for FTP Access...

Code: Select all

Procedure.l FTPDir(hConnect.l)
  hFind=FtpFindFirstFile_(hConnect,"*.*",@FTPFile.WIN32_FIND_DATA,0,0)
  If hFind
    Find=1
    Debug PeekS(@FTPFile\cFileName)
    While Find
      Find=InternetFindNextFile_(hFind,@FTPFile)
      If Find
        Debug PeekS(@FTPFile\cFileName)
      EndIf      
    Wend
  EndIf
EndProcedure

In the "FTPDir" function. How to change it with a "Recursive Function".

I wonna find all files in FTP(including subdirectory).