VB如何獲取FTP上的文件？

要用到inet控件。public strData as string '這段可以返回服務器中的第一級目錄名，保存在strData中， 如有多個文件夾名每個文件夾名會以空格分開。讀取時判段一下。

Inet1.Execute

Inet1.URL, "dir """ & dirName & """" Do DoEvents Loop While

Inet1.StillExecuting

= True msgbox strData '這段是進入目錄中，要想獲得服務器中所有的文件夾名，就可以用遞規的辦法來獲得。

Inet1.Execute

Inet1.URL, "cd """ & dirName & """" Do DoEvents Loop While

Inet1.StillExecuting

= True Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case 1 StatusBar1.Panels.Item(1)

.Text

= "該控件正在查詢所指定的主機的 IP 地址" Case 2 StatusBar1.Panels.Item(1)

.Text

= "該控件已成功地找到所指定的主機的 IP 地址" Case 3 StatusBar1.Panels.Item(1)

.Text

= "該控件正在與主機連接" Case 4 StatusBar1.Panels.Item(1)

.Text

= "該控件已與主機連接成功" Case 5 StatusBar1.Panels.Item(1)

.Text

= "該控件正在向主機發送請求" Case 6 StatusBar1.Panels.Item(1)

.Text

= "該控件發送請求已成功" Case 7 StatusBar1.Panels.Item(1)

.Text

= "該控件正在接收主機的響應" Case 8 StatusBar1.Panels.Item(1)

.Text

= "該控件已成功地接收到主機的響應" Case 9 StatusBar1.Panels.Item(1)

.Text

= "該控件正在解除與主機的連接" Case 10 StatusBar1.Panels.Item(1)

.Text

= "該控件已成功地與主機解除了連接" Case 11 MsgBox "與主機通訊時出現了錯誤", VBInformation, "個人資料" Case 12 Dim vtData As Variant 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 StatusBar1.Panels.Item(1)

.Text

= "該請求已經完成，并且所有數據均已接收到" Case Else StatusBar1.Panels.Item(1)

.Text

=

Inet1.ResponseCode

& ": " &

Inet1.ResponseInfo

End Select End Sub 關于inet控件的祥細用法可以看msdn中的幫助。