230问答网 > vb 获得一个文件夹下所有子文件夹名，并全部添加到列… [编程]怎么还有路径

vb 获得一个文件夹下所有子文件夹名，并全部添加到列… [编程]怎么还有路径

2024-11-23 21:59:10

推荐回答（1个）

回答1：

使用VB的FOS模型的FileSystemObject对象：
该对象需要引用，方法如下：
使用VB的菜单：[工程] -- [引用]，在出现的窗口，勾选：Microsoft Scripting Runtiom
代码如下：
Private Sub Command1_Click()
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\")
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub