使用inet進行FTP傳輸(轉)

'大檔案傳輸不太适合

'添加intl控件

Private Sub Command1_Click()

Inet1.Protocol = icFTP

Inet1.RemoteHost = "60.***.***.***" '伺服器位址

Inet1.RemotePort = 21 'FTP端口

Inet1.UserName = "username" '使用者名

Inet1.Password = "userpass" '密碼

Print "開始"

'下載下傳檔案:

Inet1.Execute "", "GET /adfile/1.txt d:\下載下傳的.txt"

ri = Inet1.StillExecuting

Do While ri

DoEvents

Loop

Print "結束"

End Sub

Private Sub Command2_Click()

'上傳檔案:

Inet1.Execute "", "PUT d:\1.txt /adfile/1.txt"

Print "完成"