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
Upload Multiple Files Matching PatternThe MPutFiles method can be called to upload all files matching a wildcarded filename pattern from a local filesystem directory.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set ftp = CreateObject("Chilkat.Ftp2") ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ftp.Hostname = "ftp.chilkatsoft.com" ftp.Username = "my_login" ftp.Password = "my_password" ' Connect and login to the FTP server. success = ftp.Connect() If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Change to the remote directory where the files will be uploaded. ' for the FTP account. success = ftp.ChangeRemoteDir("junk") If (success <> 1) Then MsgBox ftp.LastErrorText WScript.Quit End If ' Upload all files with filenames matching "c:/temp/ftp_*.asp" numFilesUploaded = ftp.MPutFiles("c:/temp/ftp_*.asp") If (numFilesUploaded < 0) Then MsgBox ftp.LastErrorText WScript.Quit End If ftp.Disconnect outFile.WriteLine(numFilesUploaded & " Files Uploaded!") outFile.Close |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.