Выполняем команду
nconvert.exe -info .\1\*.jpg >info.txt все ок, информация на экране выводится в файл
Хотелось сделать подобное на VBS для большого количества директорий
Код
Dim fso, f, f1, fc, s, WshShell
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set f = fso.GetFolder(".")
Set fc = f.SubFolders
fso.CreateTextFile ".\info.txt", True
For Each f1 in fc
WshShell.run ".\nconvert.exe -info .\" & f1.name & "\*.jpg >>info.txt"
Next
[/code]
Все работает, за исключением того что инфа выводится на экран а не в файл...
Что-нибудь посоветуете?
f14tc » 16 мар 2006, 14:56 
