Vb6 了解文件夹是否具有指定文件类型的最佳方法

我在VB6中有一个循环过程，它从指定的文件路径探索所有文件夹。 然后我需要知道每个检测到的文件夹是否包含MP3文件。 我不想使用

dir

命令，因为它会占用大量资源。 我尝试过使用FSO、API等来实现这一点，但找不到解决方案

---

谢谢您的帮助。

您是否尝试过FindFirstFile API函数？这应该是你最好的机会。codeproject中有一个C#示例

VB签名如下所示：

<DllImport("kernel32.dll", CharSet := CharSet.Auto)> _
Private Shared Function FindFirstFile(ByVal lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As IntPtr
End Function

_
私有共享函数FindFirstFile（ByVal lpFileName作为字符串，ByRef lpFindFileData作为WIN32_FIND_DATA）作为IntPtr
端函数

下面是一个示例VB实现

---

您还可以找到一篇关于API用法的microsoft文章。

您是否尝试过FindFirstFile API函数？这应该是你最好的机会。codeproject中有一个C#示例

VB签名如下所示：

<DllImport("kernel32.dll", CharSet := CharSet.Auto)> _
Private Shared Function FindFirstFile(ByVal lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As IntPtr
End Function

_
私有共享函数FindFirstFile（ByVal lpFileName作为字符串，ByRef lpFindFileData作为WIN32_FIND_DATA）作为IntPtr
端函数

下面是一个示例VB实现

您还可以找到一篇关于API用法的microsoft文章。

VB6的Dir$（）函数是FindFirstFile和friends上非常轻巧的包装。我不知道你为什么认为FSO会更轻或更快

Dir$（）最大的严重限制是它是一个ANSI函数，当第二次搜索已经在进行时，如果不重置第一次搜索的状态，它不能被第二次搜索“中断”

“占用大量资源”到底是什么意思

我在上发布了一个类来包装这个过程。

VB6的Dir$（）函数是FindFirstFile和friends上非常轻巧的包装器。我不知道你为什么认为FSO会更轻或更快

Dir$（）最大的严重限制是它是一个ANSI函数，当第二次搜索已经在进行时，如果不重置第一次搜索的状态，它不能被第二次搜索“中断”

“占用大量资源”到底是什么意思

---

我在上发布了一个类，用于包装流程。

很抱歉，您知道所有原因，我弄错了，过程目录非常快，现在工作得非常好。。。。谢谢你的帮助。回头看看这个链接，现在有一个dirlister2可以过滤掉。和。。文件夹名称，也有一个深度参数。对不起，你有所有的原因，我错了，程序目录是相当快的，现在的工作很好。。。。谢谢你的帮助。回头看看这个链接，现在有一个dirlister2可以过滤掉。和。。文件夹名称，并且还有一个深度参数。