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"
I don't believe that the Internet Transfer Control will upload more than one file at a time. Probably because it doesn't support the mput command.
I would just execute another Put statement, after the previous transfer has completed, for each file that needs to be uploaded.
I don't know whether the WinInet API supports mput but you could check the Microsoft example:
SAMPLE: VBFTP.EXE: Implementing FTP Using WinInet API from VB
Microsoft MVP (Visual Basic)
By barkster in forum Java
Last Post: 03-17-2008, 10:18 AM
By JochenKlein in forum Java
Last Post: 06-01-2006, 10:07 AM
By felix in forum ASP.NET
Last Post: 11-11-2005, 08:39 AM
By Erez Skubach in forum Java
Last Post: 07-03-2002, 10:55 AM
Last Post: 03-09-2001, 08:49 AM
-- Android Development Center
-- Cloud Development Project Center
-- HTML5 Development Center
-- Windows Mobile Development Center