如何獲得vb伺服器名

『壹』 VB怎麼獲得FTP伺服器的文件以及文件夾列表

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