vb 获得一个文件夹下所有子文件夹名，并全部添加到列… [编程]怎么还有路径
答案:1 悬赏:40 手机版
解决时间 2021-02-06 08:09
- 提问者网友：伴风望海
- 2021-02-05 13:50
vb 获得一个文件夹下所有子文件夹名，并全部添加到列… [编程]怎么还有路径
最佳答案
- 五星知识达人网友：山君与见山
- 2021-02-05 14:57
使用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
该对象需要引用，方法如下：
使用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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯