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