vb6.0 FTP文件下载
Private Sub Command1_Click()
Inet1.AccessType = icUseDefault '设置与Internet连接的类型,默认值
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Inet1.Execute txtURL.Text, "GET " & txtFile.Text & " " & txtSave.Text
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icError
MsgBox "错误:" & Inet1.ResponseInfo, vbCritical
Case icResponseCompleted
MsgBox "下载成功!", vbInformation
End Select
End Sub
度盘链接:链接:https://pan.删baidu.com/s/1N除rFUOb1u39nHdPkIQ5FFTQ
密码:30ul