Upload Multiple Files using INET?
Iím currently able to upload only one file at a time to my server using the code below but would like a way of uploading multiple files at a time. Can someone please help? Thank you!
Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean
' Set FTP = New DAO ' Inet
Dim ftp As Inet
lblInfo.Caption = "Connecting and Uploading File . . .Please Wait."
MsgBox "Local File: " & LocalFileName
MsgBox "Remote File: " & RemoteFileName
Inet1.Protocol = icFTP
Inet1.RemoteHost = HostName
Inet1.UserName = UserName
Inet1.Password = Password
Inet1.Execute Inet1.URL, "Put " + LocalFileName + " " + RemoteFileName
Do While Inet1.StillExecuting
UploadFile = (Inet1.ResponseCode = 0)
Set ftp = Nothing
LocalFileName = ""
RemoteFileName = ""
Inet1.Execute Inet1.URL, "CLOSE"
By barkster in forum Java
Last Post: 03-17-2008, 11:18 AM
By JochenKlein in forum Java
Last Post: 06-01-2006, 11:07 AM
By felix in forum ASP.NET
Last Post: 11-11-2005, 09:39 AM
By Erez Skubach in forum Java
Last Post: 07-03-2002, 11:55 AM
Last Post: 03-09-2001, 09:49 AM
Top DevX Stories
Easy Web Services with SQL Server 2005 HTTP Endpoints
JavaOne 2005: Java Platform Roadmap Focuses on Ease of Development, Sun Focuses on the "Free" in F.O.S.S.
Wed Yourself to UML with the Power of Associations
Microsoft to Add AJAX Capabilities to ASP.NET
IBM's Cloudscape Versus MySQL