PureBasic

Get the Current Remote Directory (PWD)

Demonstrates the Chilkat Ftp2.GetCurrentRemoteDir method, which returns the current working directory reported by the FTP server, normally via the PWD command. It takes no arguments.

Background: FTP is stateful: the server tracks a current working directory per session, and relative paths in later commands are resolved against it. Reading it back is useful to confirm where you are after a ChangeRemoteDir, or to record the starting directory so you can return to it. The value comes from the server, so it reflects the server's own path syntax and canonicalization.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the Ftp2.GetCurrentRemoteDir method, which returns the current working directory
    ;  reported by the FTP server (normally via the PWD command).  It takes no arguments.

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

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "myFtpLogin")

    ;  Normally you would not hard-code the password in source.  You should instead obtain it
    ;  from an interactive prompt, environment variable, or a secrets vault.
    CkFtp2::setCkPassword(ftp, "myPassword")

    ;  Connect and log in (Connect performs both).
    success = CkFtp2::ckConnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    currentDir.s = CkFtp2::ckGetCurrentRemoteDir(ftp)
    If CkFtp2::ckLastMethodSuccess(ftp) = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    Debug "Current remote directory: " + currentDir

    success = CkFtp2::ckDisconnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf



    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure