![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) FTP Set Remote File Date/Time Equal to Local File's Last-Modified Date/TimeDemonstrates 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 requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoFtp Handle hoFac Variant vDt Handle hoDt String sLastModTimestamp String sTemp1 Move False To iSuccess // 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 = False) Begin Get ComLastErrorText Of hoFtp To sTemp1 Showln sTemp1 Procedure_Return End // Authenticate. Get ComLoginAfterConnectOnly Of hoFtp To iSuccess If (iSuccess = False) 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 Create (RefClass(cComCkDateTime)) To hoDt If (Not(IsComObjectCreated(hoDt))) Begin Send CreateComObject of hoDt End Get ComGetFileTimeStr Of hoFac "qa_data/hamlet.xml" 0 To sLastModTimestamp Get ComSetFromTimestamp Of hoDt sLastModTimestamp To iSuccess Get pvComObject of hoDt to vDt 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 Showln "Success." End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.