(DataFlex) FTP Set Remote File Date/Time Equal to Local File's Last-Modified Date/Time

Demonstrates how to set a remote file's date/time to be equal to a local file's date/time.

Important: Not all FTP servers support the ability to set a file's date/time.

Note: This example includes a new file access method introduced in Chilkat v9.5.0.66.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    Handle hoFac
    Variant vDt
    Handle hoDt
    String sTemp1
    Boolean bTemp1

    // This example assumes Chilkat Ftp2 to have been previously unlocked.
    // See Unlock Ftp2 for sample code.

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "www.authtls-ftps-server.com"
    Set ComUsername Of hoFtp To "FTP_LOGIN"
    Set ComPassword Of hoFtp To "FTP_PASSWORD"
    Set ComAuthTls Of hoFtp To True
    Set ComPort Of hoFtp To 21

    // Connect to the FTP server using explicit TLS (AUTH TLS).
    Get ComConnectOnly Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Authenticate.
    Get ComLoginAfterConnectOnly Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // We're going to get the last-mod date/time for the local file
    // "qa_data/hamlet.xml", and then set the remote "hamlet.xml" to this date/time.
    Get Create (RefClass(cComCkFileAccess)) To hoFac
    If (Not(IsComObjectCreated(hoFac))) Begin
        Send CreateComObject of hoFac
    End
    Get ComGetLastModified Of hoFac "qa_data/hamlet.xml" To vDt
    If (IsComObject(vDt)) Begin
        Get Create (RefClass(cComCkDateTime)) To hoDt
        Set pvComObject Of hoDt To vDt
    End
    Get ComLastMethodSuccess Of hoFac To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoFac To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSetRemoteFileDt Of hoFtp vDt "hamlet.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Send Destroy of hoDt
        Procedure_Return
    End

    Get ComDisconnect Of hoFtp To iSuccess

    Send Destroy of hoDt

    Showln "Success."


End_Procedure