![]() |
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
(Xojo Plugin) SFTP Get File Date/Times in Different FormatsSee more SFTP ExamplesDemonstrates how to get remote file date/times in different formats.Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean success = False // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim sftp As New Chilkat.SFtp // Connect to the SSH server. Dim hostname As String hostname = "my-sftp-server.com" Dim port As Int32 port = 22 success = sftp.Connect(hostname,port) If (success = False) Then System.DebugLog(sftp.LastErrorText) Return End If // Authenticate with the SSH server. success = sftp.AuthenticatePw("myLogin","myPassword") If (success = False) Then System.DebugLog(sftp.LastErrorText) Return End If // After authenticating, the SFTP subsystem must be initialized: success = sftp.InitializeSftp() If (success = False) Then System.DebugLog(sftp.LastErrorText) Return End If // Open a directory on the server... // This example opens the "junk" directory located under the HOME directory of the SSH user account. Dim handle As String handle = sftp.OpenDir("junk") If (sftp.LastMethodSuccess = False) Then System.DebugLog(sftp.LastErrorText) Return End If // Download the directory listing: Dim dirListing As New Chilkat.SFtpDir success = sftp.ReadDirListing(handle,dirListing) If (success = False) Then System.DebugLog(sftp.LastErrorText) Return End If // Close the directory handle success = sftp.CloseHandle(handle) If (success = False) Then System.DebugLog(sftp.LastErrorText) Return End If // Iterate over the files. // Examine each filename and indicate those that match *FICHERO*.pdf // (i.e. the filename contains the word "FICHERO" and ends in ".pdf") Dim fileObj As New Chilkat.SFtpFile Dim sbFilename As New Chilkat.StringBuilder Dim caseSensitive As Boolean caseSensitive = False Dim bLocalDateTime As Boolean bLocalDateTime = False Dim dt As New Chilkat.CkDateTime Dim i As Int32 i = 0 Dim n As Int32 n = dirListing.NumFilesAndDirs While i < n success = dirListing.FileAt(i,fileObj) If (success = False) Then System.DebugLog(dirListing.LastErrorText) Return End If System.DebugLog(fileObj.Filename) // Get the last-modified date/time success = dt.SetFromRfc822(fileObj.LastModifiedTimeStr) // Get the date/time in other formats offered by the CkDateTime object. // such as Wed, 18 Oct 2017 09:08:21 GMT System.DebugLog("RFC822 format: " + dt.GetAsRfc822(bLocalDateTime)) // such as 1990-12-31T23:59:60Z System.DebugLog("Timestamp: " + dt.GetAsTimestamp(bLocalDateTime)) // Such as: "02/16/2008 12:15:12" where hour is 0 to 23. System.DebugLog("RFC822 format: " + dt.GetAsIso8601("MM/DD/YYYY hh:mm:ss",bLocalDateTime)) i = i + 1 Wend System.DebugLog("Success.") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.