ok, so im not perfect. for some reason this is not working. anyone know why?
Public Function UploadFile(msdFile As String)
Dim tmpCommand As String
tmpCommand = "PUT" & Space(1) & msdFile & " " & Shorten(msdFile, True)
With msdFTP
.Protocol = 2
.URL = ";ftp://ftp.venus.mysourcedump.org"
.RemotePort = 21
.AccessType = icDirect
.UserName = "venus"
.Password = "*********"
.RequestTimeout = 10
.Execute .URL, tmpCommand
End With
End Function
Thanks.
Aqua-Soft Forums