点菜单(工程)下的(引用),勾选(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.FileSystemObject
Dim fd As Scripting.folder
Dim fd_1 As Scripting.folder
Set fd = fso.GetFolder(path)
For Each fd_1 In fd.SubFolders
List1.AddItem fd_1.path
Next
End Sub
2
、获取文件列表代码如下:
Private Sub get_filess(ByRef List1 As ListBox, ByVal path As String)
'引用了Microsoft Scripting Runtime
Dim fso As New Scripting.FileSystemObject
Dim fd As Scripting.Files
Dim fd_1 As Scripting.file
Set fd = fso.GetFolder(path).Files
For Each fd_1 In fd
list2.AddItem fd_1
Next
End Sub
'如果不引用(Microsoft Scripting Runtime)时,可以通过从下方法直接调用
'Dim file
'
'For Each file In CreateObject("scripting.filesystemobject").GetFolder("c:\windows\").Files
'
' List1.AddItem file
'
'Next
'关于VB中的New 与 CreateObject的区别
'请参阅:http://miaozk2006.blog.163.com/blog/static/3824705820131111532062/
关于VB中的New 与 CreateObject的区别 请参阅:http://miaozk2006.blog.163.com/blog/static/3824705820131111532062/
评论