[Ivan Bardeen]

Вот вам vbs скрипт, который будучи запущен найдет вам все txt файлы и требуемый результат запишет в лог c:\temp\txt-files.txt

Const ForAppending = 8

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where FileName Like '*.txt'")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\temp\txt-files.txt", ForAppending, True)

For Each objFile In colFiles
objTextFile.WriteLine(objFile.Name & " " & objFile.DateCreated & " " & objFile.Size)
Next
objTextFile.Close