vba - 如何获取目录中带有ESY扩展名的所有文件的列表？

在VBA中，如何获取特定目录中具有特定扩展名的所有文件的列表？

我无法使用Application.FileSearch，因为我使用的是Excel 2007

最佳答案

为了回应您的评论“那么，我知道要运行多少次？”，此示例将运行直到列出名称与strPattern匹配的所有文件。更改strFolder常数。

Public Sub ListESY()
Const strFolder As String = "C:\SomeFolder\"
Const strPattern As String = "*.ESY"
Dim strFile As String
strFile = Dir(strFolder & strPattern, vbNormal)
Do While Len(strFile) > 0
    Debug.Print strFile '<- view this in Immediate window; Ctrl+g will take you there
    strFile = Dir
Loop
End Sub

关于vba - 如何获取目录中带有ESY扩展名的所有文件的列表？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/3017318/