|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
SFTP Download Files Matching a PatternDemonstrates how to download the files in a remote SFTP directory matching a file pattern. The example opens a directory, iterates over the files, and downloads each file matching a file pattern, such as "*.xml".
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' Important: It is helpful to send the contents of the ' sftp.LastErrorText property when requesting support. set sftp = Server.CreateObject("Chilkat.SFtp") ' Any string automatically begins a fully-functional 30-day trial. success = sftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' Set some timeouts, in milliseconds: sftp.ConnectTimeoutMs = 5000 sftp.IdleTimeoutMs = 10000 ' Connect to the SSH server. ' The standard SSH port = 22 ' The hostname may be a hostname or IP address. hostname = "www.my-sftp-server.com" port = 22 success = sftp.Connect(hostname,port) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' Authenticate with the SSH server. Chilkat SFTP supports ' both password-based authenication as well as public-key ' authentication. This example uses password authenication. success = sftp.AuthenticatePw("myLogin","myPassword") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' After authenticating, the SFTP subsystem must be initialized: success = sftp.InitializeSftp() If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' Open a directory on the server... ' Paths starting with a slash are "absolute", and are relative ' to the root of the file system. Names starting with any other ' character are relative to the user's default directory (home directory). ' A path component of ".." refers to the parent directory, ' and "." refers to the current directory. dirPath = "abc123" handle = sftp.OpenDir(dirPath) If (handle = vbNullString ) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' Download the directory listing: ' dirListing is a Chilkat.SFtpDir Set dirListing = sftp.ReadDir(handle) If (dirListing Is Nothing ) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If ' Iterate over the files. n = dirListing.NumFilesAndDirs If (n = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "No entries found in this directory.") & "</pre>" Else For i = 0 To n - 1 ' fileObj is a Chilkat.SFtpFile Set fileObj = dirListing.GetFileObject(i) Response.Write "<pre>" & Server.HTMLEncode( fileObj.Filename) & "</pre>" ' Does this filename match the desired pattern? ' Write code here to determine if it's a match or not. ' Assuming it's a match, you would download the file ' like this: remoteFilePath = dirPath & "/" remoteFilePath = remoteFilePath & fileObj.Filename localFilePath = fileObj.Filename success = sftp.DownloadFileByName(remoteFilePath,localFilePath) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If Next End If ' Close the directory success = sftp.CloseHandle(handle) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(sftp.LastErrorText) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode("Success.") & "</pre>" %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
