UC知道vb用INET1,从FTP下TXT文件
来源：百度知道 编辑：UC知道 时间：2024/06/17 04:08:14
要从FTP上找一个文件,如找到下载到本地,VB调用BAT文件可以联到FTP上,在我的电脑里有个FTP的共公盘Q,但不知道用什么样的VB 命令可以COPY 文件到本地,用INET1却提示:TIME OUT35754 无法联到FTP,文件代码如下
Private Sub Command1_Click()
With Inet1
.URL = "ftp://1234:linghuchong@10.169.12.64"
.UserName = "1234"
.Password = "linghuchong"
.Protocol = icFTP
' Inet1.RemotePort = "21"
.Execute "ftp://1234:linghuchong@10.169.12.64", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
End With
'Inet1.Execute url, StrMsg
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 1
Text1.Text = "is looking"
Case 2
Text1.Text = "success finding "
Case 3
Text1.Text = "is connecting"
Case 4
Text1
Private Sub Command1_Click()
With Inet1
.URL = "ftp://1234:linghuchong@10.169.12.64"
.UserName = "1234"
.Password = "linghuchong"
.Protocol = icFTP
' Inet1.RemotePort = "21"
.Execute "ftp://1234:linghuchong@10.169.12.64", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
End With
'Inet1.Execute url, StrMsg
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 1
Text1.Text = "is looking"
Case 2
Text1.Text = "success finding "
Case 3
Text1.Text = "is connecting"
Case 4
Text1
1、INET打开FTP服务需要时间，所以不推荐在with块中执行Execute
2、Execute "ftp://1234:linghuchong@10.169.12.64", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
中的get后面应该有个空格！
3、不需要写成Execute "ftp://1234:linghuchong@10.169.12.64", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
写成Execute "", "get " & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"就行了！
记得有一个API InternetReadFile