PureBasic

Download Directory Tree

See more FTP Examples

Download a directory tree from an FTP server, re-creating it on the local filesystem. 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, "test")
    CkFtp2::setCkPassword(ftp, "test")

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

    ; Set the current remote directory to the root of
    ; the tree to be downloaded.
    ; success = ftp.ChangeRemoteDir("/something");
    ; if (success != cktrue) { 
    ; 	println ftp.LastErrorText;
    ; 	return;
    ; }

    ; Download the entire tree, recreating it at c:/temp/something
    success = CkFtp2::ckDownloadTree(ftp,"c:/temp/something2")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure