請問VB中如何獲取FTP中的檔案串列?謝謝
使用wininet 如何操作？
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
這是哪里復制的吧。。。。。肯定不對。我用inet控制元件，下面的代碼 win10可以用， 程式放到xp的機子上沒用？ 求教大神Private Sub Command2_Click()
List1.Clear
Dim strData As String
Inet1.URL = Mid(Label1.Caption, 7)
On Error Resume Next
Inet1.RequestTimeout = 1
Inet1.Execute Inet1.URL, "dir /" & Label2.Caption
Do While Inet1.StillExecuting
DoEvents
Loop
strData = Inet1.GetChunk(1000)
Inet1.Cancel
Dim a() As String
a() = Split(strData, vbCrLf)
For i = 0 To UBound(a())
If a(i) <> "" Then List1.AddItem (a(i))
Next i
End Sub
uj5u.com熱心網友回復：
這種代碼大把有
百度搜索一下就好
我隨便搜了一個
http://blog.csdn.net/hlzs_01/article/details/9030815
uj5u.com熱心網友回復：
另外你那個代碼不會WIN7有用XP沒用的你自己看下inet控制元件這個控制元件XP你有沒用
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78305.html
標籤：API