Question

VB利用Inet下载Ftp文件出错

代码如下：
Inet1.Protocol = icFTP
Inet1.URL = "ftp://117.25.169.53"
Inet1.RemotePort = 21
Inet1.UserName = "XXX"
Inet1.Password = "XXX"
Label1.Caption = "正在下载...."
Inet1.Cancel
Inet1.Execute , "GET /ftp_file/2.zip c:\2.zip"
Do While Inet1.StillExecuting
DoEvents
Loop
Label1.Caption = "下载完成"
用户名，密码，ftp地址均确认无误。
每次都在 Inet1.Execute , "GET /ftp_file/2.zip c:\2.zip"出错，图片就是出错时的图片
求高手帮忙看一下~谢谢

Answer 1

这明显是说没连上ftp服务器；
Inet1.Cancel 你主动把连接放弃了！把这句注释掉！

追问

那句去掉也是一樣耶~
提示跟上面那個一樣

追答

你的代码没错啊， 那你在浏览器里ftp://117.25.169.53 ，然后输入用户名密码可以登录吗？

追问

可以，我用IE登陸這個地址，用戶名和密碼輸進去可以~

追答

那个路径/ftp_file/对吗

追问

可以了~
是這個ftp故障了~~
謝謝

另外問個問題，如果我要判斷GET /ftp_file/2.zip中的2存不存在，若存在再執行下載，應該怎麼寫哦？

追答

DIR命令
语法 dir file1
搜索 file1 中指定的目录或文件。（允许用通配符，但要使用远程主机的语法。）如果没有指定 file1，将返回当前的整个工作目录。使用 GetChunk 方法返回目录数据。
Inet1.Execute , "DIR 1.txt"

Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时，用 GetChunk 方法检索服务器的响应。

Dim vtData As Variant ' Data variable.
Select Case State
'...没有列举其它情况。
Case icError '11
'出现错误时，返回 ResponseCode 和 ResponseInfo。
vtData = Inet1.ResponseCode & ":" & _
Inet1.ResponseInfo
Case icResponseCompleted ' 12

Dim vtData As Variant
Dim strData As String
Dim bDone As Boolean: bDone = False

'取得第一个块。
vtData = Inet1.GetChunk(1024, icString)
DoEvents

Do While Not bDone
strData = strData & vtData
'取得下一个块。
vtData = Inet1.GetChunk(1024, icString)
DoEvents

If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
End Select

End Sub