Question

VB中如何读取ftp服务器上面的text文本文件？

是这样的，我现在做一个小程序读取远程ftp服务器上面的text里面的数据，首先要判断远程服务器上面是否有我要读取的文件，如果存在的话，打开该文件进行逐行读取，怎么用代码实现？

Answer 1

　　使用Inet控件进行FTP操作
　　Inet1.Protocol = icFTP
　　Inet1.RemoteHost = p_ServerName ' 服务器IP或者域名
　　Inet1.RemotePort = CInt(p_ServerPort) 'FTP端口
　　Inet1.UserName = uName 'FTP帐号
　　Inet1.Password = uPWS 'FTP密码

　　Inet1.Execute "", "ls"
　　ri = Inet1.StillExecuting
　　Do While ri
　　ri = Inet1.StillExecuting
　　DoEvents
　　Loop
　　vd = Inet1.GetChunk(1024, icString)
　　判断服务的FTP是否连接成功
　　下面下载服务器上的text数据，假设文件名为1.txt
　　p_pathDir 为当前软件运行目录，后面一个字符自带 \，如e:\1111\
　　tepFile 临时文件
　　工作方式是先下载这个文件下为，然后判断本地是否存在，如果存在，则打开文件读取内容，如果不存在，则说明服务器上不存在这个文件，但要注意，如果文件过大的话，可能需要等待的时候比较长。
　　tepFile = p_pathDir & "1.txt_"
　　'Inet1.Execute hDir, "get 1.txt " & tepFile
　　Inet1.Execute "", "GET 1.txt " & tepFile
　　ri = Inet1.StillExecuting
　　Do While ri
　　ri = Inet1.StillExecuting
　　DoEvents
　　Loop
　　If Dir(tepFile) = "" Then
　　Inet1.Cancel
　　MsgBox "文件不存在" & InetState, vbOKOnly + vbExclamation, "系统提示"
　　Else
　　Inet1.Cancel
　　'这里已经存在，与本地操作文件一样，请打开获取内容，不再详细写出
　　'
　　End If

追问

你好，我调试了一下，还是没能成功，说是不能连接到远程主机，加q教一下我吧，1459547489，谢谢！