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