㈠ VB中如何读取ftp服务器上面的text文本文件
使用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
㈡ VBA如何访问ftp路径的文件
需要先判断该文件是否存在。
VBA是到一个ftp服务器上打开指定的文件，但是需要先判断该文件是否存在，在那个cFTP的类中找到一段代码。
㈢ vb6.0用inet空间获取ftp文件列表的问题
从上面代码看， OperationStyle变量没有定义，所以出现上述问题。
其他代码不变，只对下面代码进行修改即可：
Case 12 ‘不要8
Select Case OperationStyle
Case 2
Text1.Text = Text1.Text & vbCrLf & "成功改变目录"
listserver
Case Else
Text1.Text = Text1.Text & vbCrLf & "成功列出目录"
ListView1.ListItems.Clear
inetdata = Inet1.GetChunk(1024, 0)
If Trim(inetdata) <> 0 Then
temparray = Split(inetdata, vbCrLf, , vbTextCompare)
i = 0
Do While i < UBound(temparray)
If temparray(i) <> "" Then
deallist (temparray(i))
End If
i = i + 1
Loop
End If
End Select
End Select
Text1.SelLength = Len(Text1.Text)
End Sub