在VB6中,以文件名中指定的模式获取目录中的文件列表

在VB6中,以文件名中指定的模式获取目录中的文件列表,vb6,Vb6,我有一个目录,里面有很多文件, 有些文件名以say开头,abc_001.ini、abc_002.ini、abc_003.ini等等。 同一文件夹中还有其他文件。 我想得到一个文件列表,这些文件以abc开头,扩展名为.ini。 如何在VB6中做到这一点?不知羞耻地从 设置路径。 MyName=Dir(MyPath,vbDirectory)'检索第一个条目。 在MyName“”启动循环时执行此操作。 '忽略当前目录和包含的目录。 如果我的名字“.”和我的名字“.”那么 调试。打印我的名字 如果结束

我有一个目录,里面有很多文件, 有些文件名以say开头,
abc_001.ini、abc_002.ini、abc_003.ini
等等。 同一文件夹中还有其他文件。 我想得到一个文件列表,这些文件以abc开头,扩展名为.ini。
如何在VB6中做到这一点?

不知羞耻地从

设置路径。 MyName=Dir(MyPath,vbDirectory)'检索第一个条目。 在MyName“”启动循环时执行此操作。 '忽略当前目录和包含的目录。 如果我的名字“.”和我的名字“.”那么 调试。打印我的名字 如果结束 MyName=Dir'获取下一个条目。 环
MyPath = "c:\wherever\abc_*.ini"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
   ' Ignore the current directory and the encompassing directory.
   If MyName <> "." And MyName <> ".." Then
      Debug.Print MyName 
   End If
   MyName = Dir   ' Get next entry.
Loop