vb 服务器上创建txt文件,VB中如何读取ftp服务器上面的text文本文件？

匿名用户

1级

2016-03-25 回答

使用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，谢谢！