Question

vb 编程中，想要获取指定文件夹下的文件夹名，例如D:\X轴\下的所有文件夹的名称，并显示在textbox中，谢谢

是获取文件夹名！！！

Answer 1

Private Sub GetFoldersFromPath(Byval lpFolder As String,iTextBox As TextBox)
Dim FSO As Object
Dim oFolder
Set FSO=CreateObject("Scripting.FileSystemObject")
For Each oFolder In FSO.GetFolder(lpFolder).SubFolders
iTextBox=iTextBox & "|" & oFolder.Name
Next
Set FSO=Nothing
End Sub

追问

可以写的详细一点吗，我不太懂，谢谢

追答

You gotta be kidding me?
Isn't that clear? OK,try this:

Private Sub Command1_Click()
GetFoldersFromPath "C:\", Text1
End Sub

追问

可是我这个是想获取子文件夹下的子文件夹啊，就是D:\X轴\下的所有文件夹的名称，应该怎么改啊，麻烦你帮我弄一下，谢谢