利用 INternet transfer 控件设计一个可以连接FTP服务器的客户端程序
inet1的accesstype 和protocol属性设置
按钮名称为cmddownload
Private Sub cmddownload_Click()
Dim strsource As String, strdes As String
Inet1.URL = Text1.Text
Inet1.OpenURL
strsource = Text2.Text
strdes = Text3.Text
Inet1.Execute , "GET" & strsource & " " & strdes '执行get操作
Inet1.Execute , "QUIT"
End Sub
Private Sub Form_Terminate()
If Inet1.StillExecuting = True Then
Inet1.Cancel
End If
End Sub