1. VB FTP的运用
对于FTP，你可以使用Execute方法执行FTP命令SIZE获得文件大小。然后在StateChanged事件中可以获得返回的文件大小。
Private Sub Command1_Click()
Inet1.Execute "ftp://127.0.0.1", "SIZE 1.gif"
End Sub
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 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
MsgBox strData
End Select
End Sub
对于HTTP下载，你可以用GetHeader(Content-length)来获得文件大小。但不是所有HTTP下载时都能获得文件长度，特别是通过代理服务器下载文件时。如：
Private Sub Form_Load()
Inet1.Execute "http://askpro.yeah.net/"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = icResponseReceived Then
MsgBox "File size is " & Inet1.GetHeader("Content-Length")
End If
End Sub
2. 怎么查看FTP的根目录啊
1、选择一个磁盘态咐（比如D盘）新建一个文件夹命名为“测试目录”。这个就是我们的FTP站点目录。
3. VB 如何获取FTP上的文件
FlashfXP只能单线程下载，可以先用FlashfXP登录FTP站点，选中你要下载的文件，右击鼠标，在出现的菜单上选择：“复制URL(Ctrl+U)”，FlashfXP会提示：“是否复制用户名及密码？”，选择“是”，然后打开迅雷，点“新建（Ctrl+N）”下载任务，在出现的界面上边：“网址（URL）”里面（Ctrl+V）填上刚刚粘贴的信息，这样迅雷就可以从你的FTP站点多线程下载文件了，而且你可以同时下载不同的文件，也是多线程的。当然，万一你的FTP站点是限制单线程下载的话，为了充分利用带宽，就只好同时下载其他文件来提高效率。万一你的FTP站点是限制每个IP只能单线程下载一份文件，这个办法可能就无能为力了
4. VB中怎么写，打开之后就进入一个FTP，自动输入密码。读取到FTP上的文件
添加一个部件“Microsoft Internet Transfer Control”然后在窗体上添加一个此对象“Inet1”，设置属性Protocol：2-icFTPRemoteHost：你的FTP服务器IPUsername：你的用户名Password：你的密码 然后再用相关FTP命令读取服务器中的文件.
5. 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