PureBasic

Get Filenames in a Remote Directory

Gets the names of files in a remote FTP directory. PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "myLogin")
    CkFtp2::setCkPassword(ftp, "myPassword")
    ; Use explicit TLS
    CkFtp2::setCkAuthTls(ftp, 1)
    CkFtp2::setCkPort(ftp, 21)

    ; Connect and login to the FTP server.
    success = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Iterate over .txt files.
    CkFtp2::setCkListPattern(ftp, "*.txt")
    n.i = CkFtp2::ckGetDirCount(ftp)
    Debug "n = " + Str(n)

    i.i = 0
    While i < n

        Debug Str(i) + ": " + CkFtp2::ckGetFilename(ftp,i)

        i = i + 1
    Wend


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure