Reflexive FTP search

[oryaaaaa]

This tips is All get server side files.

Code: Select all

Global NewList ftpFile.s()

Procedure FTPsearch(dir.s)
  Protected NewList DirectoryFTP.s()
  SetFTPDirectory(#FTP, dir)
  If ExamineFTPDirectory(#FTP)
    While NextFTPDirectoryEntry(#FTP)
      If FTPDirectoryEntryType(#FTP) = #PB_FTP_File
        AddElement( ftpFile() )
        ftpFile() = dir + FTPDirectoryEntryName(#FTP)
        Debug ftpFile()
      ElseIf FTPDirectoryEntryType(#FTP) = #PB_FTP_Directory
        If FTPDirectoryEntryName(#FTP)<>"." And FTPDirectoryEntryName(#FTP)<>".."
          AddElement( DirectoryFTP() )
          DirectoryFTP() = dir + FTPDirectoryEntryName(#FTP) + "/"
        EndIf
      EndIf 
    Wend
  EndIf
  ForEach DirectoryFTP()
    FTPsearch(DirectoryFTP())
  Next
EndProcedure

If OpenFTP(#FTP, "ftp.jp", "ftpUser.jp", "Pass")
  a = FTPsearch("/ftpUser.jp/homepage/")
  CloseFTP(#FTP)
EndIf