中国DOS联盟

Set oFSO = CreateObject("SCripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("a.txt",2,True)
For Each x In GetObject("winmgmts:").execquery("select * from CIM_DATAFILE where extension = 'txt' and drive = 'c:'")
    oFile.WriteLine x.name
Next
    oFile.Close
Set oFile = Nothing
Set oFSO = Nothing

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\")
Set oFile = oFSO.OpenTextFile("a.txt",2,True)
    GetFileName oFolder
    oFile.Close
Set oFile = Nothing
Set oFSO = Nothing


Sub GetFileName(oFolder)

    For Each tmpFile In oFolder.Files
        If LCase(Right(tmpFile.Name,4)) = ".txt" Then
            oFile.WriteLine tmpFile.Path
        End If
    Next
   
    For Each tmpFolder In oFolder.SubFolders
        GetFileName(tmpFolder)
    Next
   
End Sub