vb6.0 FTP文件下载

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