如何遍历当前目录的所有文件

[pm666]

如题

[DawnPine]

可以用File System Object对象:

Option Explicit
'FileSystemObject必须在"工程、引用"中选中Microsoft Scripting Runtime
Public fso As New FileSystemObject
Sub MyProc1(ByVal Folder As String)
Dim objFile, objFolder

Set objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
MyProc2 objFile.Path
Next
For Each objFolder In objFolder.SubFolders
MyProc1 objFolder '递归遍历整颗树
Next
End Sub

Sub MyProc2(FileName As String)
Debug.Print FileName
End Sub

[pm666]

在excel下我如何加载 'FileSystemObject必须在"工程、引用"中选中Microsoft Scripting Runtime
找不到地方,求高人指点

[xinliangyu]

写一个递归函数，函数中判断dir返回的是文件或是文件夹，是文件夹的再调用本函数。此法可搜索出指定文件夹下所有文件