[решено] нахождение txt.

[Чин Хон]

Привет всем! Нужна помощь
задание такое: найти любой txt файл в диске С. После нахождения программа должна вывести на экран имя файла, время создания файла, и вес. Спасибо

[amel27]

@for /f "delims=" %%a in ('dir /b/s/a-d c:\*.txt') do @(
@for /f "tokens=1,2" %%b in ('dir/tc "%%a"^|findstr/iec:".txt"') do @set "$tc=%%b %%c"
echo.
echo Long File Name : %%~fa
echo Short File Name : %%~sa
echo.
echo File size ^(Bytes^): %%~za
echo.
call echo Creation Time : %%$tc%%
echo Modification Time: %%~ta
pause>nul& goto:continue)
:continue

[Чин Хон]

выводит ошибку "непредвиденное появление %%a"

[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

[Чин Хон]

мне нужен bat... но все равно спасибо=)

[Ivan Bardeen]

мне нужен bat... но все равно спасибо »
Пожалуйста.
Но я подумал, что вам нужно решить задачу, при этом неважно bat или vbs.
Тем более листинг vbs круче выглядит : ) имхо
Да и "погибче" будет

[Чин Хон]

дело в том, что задание именно по bat дали=)

[amel27]

выводит ошибку "непредвиденное появление %%a" »Мне не удалось воспроизвести ошибку на XP/2003. Могу только предложить убрать по тексту все 4 знака "@" и запустить батник с выводом в лог, дальше надо смотреть по логу.test.bat >test.log 2>&1

[Чин Хон]

Спасибо большое!=)