请问，在vb6中如何调用MS-DOS命令，比如dir 0*.pdg，可得到这种文件0*.pdg的数量，但vb6就没有这样的功能，必须通过编程才能实现，不爽！

Question

想利用dos命令的理由是：
（1）VB6提供的DIR函数功能太差，无法与dos下的dir命令相比。（2）FSO下只提供了Count属性，只能测出文件或子文件夹的总数，对于某一文件夹下的某一种文件的数量，如符合0*.pdg条件的文件的个数，仍要通过编程来解决，不爽！

Answer 1

shell 语句   你用  shell" dir 0*.pdg >aa.txt"再分析AA。TXT的内容  不管我认为更烦

Answer 2

在循环中使用Like运算符如b="01158abc" Like "0*"                '返回值为True
你遍历文件夹所有文件，获取文件名，与 "0*"进行Like比较。

Answer 3

shell "cmd.exe /c dir 0*.pdg/p"

Answer 4

只能测出文件或子文件夹的总数，对于某一文件夹下的某一种文件的数量，如符合0*.pdg条件的文件的个数，仍要通过编程来解决，不爽！//判断扩展名称

Answer 5

搂主好搞笑，你调用dos指令dir了，那么你怎样获得dos返回的文件数量呢？dir重定向到文件然后读这个文件，从文件的最后一行分离出文件数目？难道这样更爽？给你一个获取符合通配符的文件的数量的小函数吧
调用举例：Debug.Print GetFileCount("c:\0*.pdg")
Private Function GetFileCount(strFile As String)
    Dim temp As String
    Dim i As Integer
    temp = Dir(strFile)
    Do While temp <> ""
        i = i + 1
        temp = Dir()
    Loop
    GetFileCount = i
End Function