Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] нахождение txt. (http://forum.oszone.net/showthread.php?t=197097)

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

amel27 20-01-2011 06:01 1592814
Код:
@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

Чин Хон 20-01-2011 12:56 1593013
выводит ошибку "непредвиденное появление %%a"

Ivan Bardeen 20-01-2011 16:26 1593194
Вот вам 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

Чин Хон 20-01-2011 16:34 1593198
мне нужен bat... но все равно спасибо=)

Ivan Bardeen 20-01-2011 16:36 1593200
Цитата:
Цитата Чин Хон
мне нужен bat... но все равно спасибо »
Пожалуйста.
Но я подумал, что вам нужно решить задачу, при этом неважно bat или vbs.
Тем более листинг vbs круче выглядит : ) имхо
Да и "погибче" будет

Чин Хон 20-01-2011 22:11 1593464
дело в том, что задание именно по bat дали=)

amel27 21-01-2011 05:17 1593604
Цитата:
Цитата Чин Хон
выводит ошибку "непредвиденное появление %%a" »
Мне не удалось воспроизвести ошибку на XP/2003. Могу только предложить убрать по тексту все 4 знака "@" и запустить батник с выводом в лог, дальше надо смотреть по логу.
Код:
test.bat >test.log 2>&1

Чин Хон 21-01-2011 12:05 1593818
Спасибо большое!=)


Время: 14:40.

Время: 14:40.
© OSzone.net 2001-