Серый форум — VBS: Поиск файлов в каталоге

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Tue, 01 Jul 2014 05:24:45 +0000

Точнее так
""e:\"" на e: - без слэша

Это означает — «текущий каталог на диске «e:»».

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Tue, 01 Jul 2014 04:57:37 +0000

Точнее так
""e:\"" на e: - без слэша

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Mon, 30 Jun 2014 12:27:40 +0000

но у меня заработало ""e:\"" e:\ - без кавычек, с твоими поправками.

Если будут пробельные символы в этом пути — кавычки понадобятся.

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Mon, 30 Jun 2014 08:19:28 +0000

alexii пишет:

WshShell.Run """c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe"" --write --drivename ""e:\"" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive ""c:\backup\" & FileName & """", 1, True

Спасибо комрад!

но у меня заработало ""e:\"" e:\ - без кавычек, с твоими поправками.

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Thu, 26 Jun 2014 19:58:10 +0000

WshShell.Run """c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe"" --write --drivename ""e:\"" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive ""c:\backup\" & FileName & """", 1, True

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Thu, 26 Jun 2014 14:33:34 +0000

Снова какая-то ерунда.
Что не так? Где ошибся?


FileName = file.Name

Вариант 1
WshShell.Run("c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe" --write --drivename "e:\" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive c:\backup\"&FileName"",1,True)

Вариант2
WshShell.Run """c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe" --write --drivename "e:\" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive c:\backup\"&FileName""""

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Tue, 05 Mar 2013 06:53:52 +0000

alexii пишет:

Используйте «&», а не «+».

хех, пасиб вам работает!

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Sat, 02 Mar 2013 22:00:29 +0000

Используйте «&», а не «+».

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Sat, 02 Mar 2013 18:10:43 +0000

alexii пишет:

Dr.Hofmann, в чём проблема?

Проблема в следующем:
Если пишу строку кода

Set objWshScriptExec = objShell.Exec("7zip.exe e test.zip")

- то все работает.

Мне нужно вместо test.zip подставить/передать значение переменной File.
пробовал делать так:

Set objWshScriptExec = objShell.Exec("7zip.exe e "+File)

и так

WshShell.run "7z.exe e c:\cat1\"+File+" c:\tmp"

- неполучилось.
Что делаю не так?

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Thu, 28 Feb 2013 15:42:55 +0000

Dr.Hofmann, в чём проблема?

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Thu, 28 Feb 2013 11:05:43 +0000

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Wed, 27 Feb 2013 13:58:27 +0000

ок. Посмотрим.
+
Поправка: если рассматривать vbs и 7zip
например:


set FSO = CreateObject("Scripting.FileSystemObject")
For each file in FSO.GetFolder(".\cat2").Files
Set File = FSO.GetFile(file)
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("7zip.exe e ??????")
Set objStdOut = objWshScriptExec.StdOut

Так будет работать:
Set objWshScriptExec = objShell.Exec("7zip.exe e file")

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Wed, 27 Feb 2013 13:28:02 +0000

Можно и так. Можно и через «.Exec()».

В любом случае используйте параметр trid.exe, ограничивающий вывод утилиты только наиболее вероятным вариантом (наименование параметра навскидку не помню, смотрите сами).

Re: VBS: Поиск файлов в каталоге

null@example.com (Dr.Hofmann) — Wed, 27 Feb 2013 12:59:58 +0000

 разбирая в скрипте вывод этого приложения.

Так делается или как-то по другому кодится:


WScript.CreateObject("Wscript.Shell").Run _
"%comspec% /K chcp 1251 &&trid c:\test\doc\test.arj > outfile.txt"

outfile = "outfile.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile(outfile)

Set TextStream = File.OpenAsTextStream(1)

Str = TextStream.ReadAll()

TextStream.Close

Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Pattern = "ARJ compressed archive"

GetBool = objRegExp.Test(Str) 

if GetBool = true then 

else

end If

Re: VBS: Поиск файлов в каталоге

null@example.com (alexii) — Fri, 22 Feb 2013 11:10:13 +0000

Используйте Marco Pontello's Home - Software - TrID, разбирая в скрипте вывод этого приложения.