UC知道vb 我想让combo加载c:\windows里面的文件夹.
来源：百度知道 编辑：UC知道 时间：2024/06/08 07:54:33
如题:比如说我要把c:\windows里面所有的文件夹名放入list里面.怎么写代码啊.
Dim R As String
R = Dir("C:\windows\", vbDirectory)
If (GetAttr("c:\windows\" + R) And vbDirectory) = vbDirectory Then
If R <> "." And R <> ".." Then List1.AddItem R
End If
Do While R <> ""
R = Dir
If R <> "." And R <> ".." Then
If (GetAttr("c:\windows\" + R) And vbDirectory) = vbDirectory Then
List1.AddItem R
End If
End If
Loop
VB6里面不是driver控件和filelist控件嘛。