VB 读取文件夹名

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:01:22
List1读取某个盘下的或某个文件夹下的子文件夹名，注意：只要读取数字文件夹名

以 c:\vb 下子文件夹为例：

Private Sub Command1_Click()
Dim s As String

List1.Clear
s = Dir("c:\vb\", vbDirectory)
Do While s <> ""
If IsNumeric(s) Then List1.AddItem s
s = Dir
Loop
End Sub

直接使用FolderView控件就可以了
没有必要自己再做程序
影响执行速度