Keskustelu: Ohjelmointikysymykset: VB6: FTP

Create a form called Form1 and add the Microsoft Internet Transfer Control. Use the default name of Inet1.
You'll need two command buttons: Command1 and Command2 and that's it!

Private Sub Form_Load()
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemoteHost = "ftp.host.com"
Inet1.RemotePort = "21"
Inet1.Password = "password"
Inet1.UserName = "username"
Inet1.RequestTimeout = "60"
End Sub

Private Sub Command1_Click()

'use to download files to ftp server

strRemote = "index.htm"
strLocal = "index.htm"
Form1.Inet1.Execute , "GET """ & strRemote & """ " & strLocal
End Sub

Private Sub Command2_Click()

'use to upload files to ftp server

strRemote = "index.htm"
strLocal = "index.htm"
Form1.Inet1.Execute , "PUT """ & strLocal & """ " & strRemote
End Sub