Точнее так
""e:\"" на e: - без слэша
Это означает — «текущий каталог на диске «e:»».
]]>но у меня заработало ""e:\"" e:\ - без кавычек, с твоими поправками.
Если будут пробельные символы в этом пути — кавычки понадобятся.
]]>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:\ - без кавычек, с твоими поправками.
]]>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
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""""
Используйте «&», а не «+».
хех, пасиб вам работает!
]]>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"- неполучилось.
Что делаю не так?
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")
В любом случае используйте параметр trid.exe, ограничивающий вывод утилиты только наиболее вероятным вариантом (наименование параметра навскидку не помню, смотрите сами).
]]> разбирая в скрипте вывод этого приложения.Так делается или как-то по другому кодится:
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