UC知道vb ftp 大文件下载
来源：百度知道 编辑：UC知道 时间：2024/05/29 15:06:18
Private Sub Command1_Click()
Inet1.Protocol = icFTP
Inet1.URL = "ftp://192.168.0.254"
Inet1.RemotePort = 21
Inet1.UserName = "a"
Inet1.Password = "123"
Inet1.Cancel
Call Inet1.Execute(, "GET 1.rar c:\1.rar")
Do While Inet1.StillExecuting
DoEvents
Loop
End Sub
需要下载的文件20多兆 用这个代码无法下载
怎样能下载啊 而且还要用ProgressBar1这个控件啊
Inet1.Protocol = icFTP
Inet1.URL = "ftp://192.168.0.254"
Inet1.RemotePort = 21
Inet1.UserName = "a"
Inet1.Password = "123"
Inet1.Cancel
Call Inet1.Execute(, "GET 1.rar c:\1.rar")
Do While Inet1.StillExecuting
DoEvents
Loop
End Sub
需要下载的文件20多兆 用这个代码无法下载
怎样能下载啊 而且还要用ProgressBar1这个控件啊
Dim ShowInfo As String
Dim vtData As Variant
Private Sub Command1_Click()
Inet1.Execute , "size 1.rar "
End Sub
Private Sub Command2_Click()
Inet1.Execute , "get 1.rar c:\1.rar"
If Len(vtData) > 0 Then ProgressBar1.Max = CLng(vtData)
Timer1.Enabled = True
Timer1.Interval = 1500
End Sub
Private Sub Form_Load()
Inet1.URL = Text1.Text
Inet1.UserName = Text2.Text
Inet1.Password = Text3.Text
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 0
ShowInfo = "未报告状态"
Case 1
ShowInfo = "正在寻找指定主机的IP地址"
Case 2
ShowInfo = "已成功找到指定主机的IP地址"
Case 3
ShowInfo = "正在与指定主机进行连接"