so far i got everything i only need to know how i declare it
this is what i got so far
Expand|Select|Wrap|Line Numbers
- Dim success As Boolean
- ftp1.Hostname = "*******"
- ftp1.Username = "********"
- ftp1.Password = "*****"
- ' The default data transfer mode is "Active" as opposed to "Passive".
- ' Change it to Passive by setting the Passive property:
- ftp1.Passive = True
- ' Connect and login to the FTP server.
- success = ftp1.Connect()
- ' Upload a file.
- Dim localFilename As String
- localFilename = file
- Dim remoteFilename As String
- remoteFilename = Date.Now & My.Computer.Name & ".txt"
- success = ftp1.PutFile(localFilename, remoteFilename)
- ftp1.Disconnect()
- Dim value As String
- value = ftp1.UploadFile
- End Sub