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

是获取文件夹名!!!
2025-02-27 14:58:18
推荐回答(1个)
回答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