点菜单(工程)下的(引用),勾选(Microsoft Scripting Runtime)确认.再在用FSO前声明
添加两个LISTBOX
’调用代码如下:
Private Sub Command1_Click()
get_folders List1, "c:\windows"
get_files,List2, "c:\windows"
End Sub
1、获取文件夹列表代码如下:
Private Sub get_folders(ByRef List1 As ListBox, ByVal path As String)
'引用了Microsoft Scripting Runtime
Dim fso As New Scripting.FileSyst
'引用了Microsoft Scripting Runtime
Dim fso As New Scripting.FileSyst