Серый форум — VBS: WshShell.Run "mklink...

Re: VBS: WshShell.Run "mklink...

null@example.com (qsedftghk) — Fri, 15 Sep 2023 20:42:22 +0000

Да, так работает. Это я не учёл. Спасибо. Правда мелькает окно cmd`шное, а тогда смысла в vbs нет, можно и батником делать. А хотелось бы незаметненько сделать. Не критично, но не красиво.

ЗЫ. А, нет, это я все продолжаю тупить...
Вообщем, спасибо, всё заработало как надо, вот правильная строка:

WshShell.Run "cmd /c mklink /D "+"""C:\111\"+Folder.Name+""" """+ext+"""",0,false

Re: VBS: WshShell.Run "mklink...

null@example.com (Мальчик-гей) — Fri, 15 Sep 2023 20:34:51 +0000

Извиняюсь, не сообразил. Вопрос не имел бы отношения к VBS, если бы mklink была внешней утилитой и почему-то не работала, но это внутренняя команда cmd.exe и без помощи cmd.exe она работать не будет. То есть не удивительно, что не удаётся найти файл mklink.exe, например. Таким образом, вопрос о том как вызвать извне команду cmd.exe. Ну, так

cmd /c команда

Re: VBS: WshShell.Run "mklink...

null@example.com (qsedftghk) — Fri, 15 Sep 2023 20:08:33 +0000

Именно так и было сделано до того, как была создана тема.
Строка получается -> mklink /D "C:\111\нужная папка" "нужная папка"

Но WshShell.Run не обрабатывает получившуюся строку. В обыкновенном bat`нике данная строка нормально выполняется.

Именно поэтому и пишу сюда. И, непонятно, с какого перепугу это вопрос не относится к vbs, когда скрипт vbs-ский.

Re: VBS: WshShell.Run "mklink...

null@example.com (Мальчик-гей) — Fri, 15 Sep 2023 15:18:13 +0000

Заменяете WshShell.Run на WScript.Echo, смотрите какая командная строка получается и разбираетесь, почему она не работает. Вопрос не имеет отношения ни к WSH, ни к VBS.

VBS: WshShell.Run "mklink...

null@example.com (qsedftghk) — Fri, 15 Sep 2023 10:42:38 +0000

Перетянув файл на скрипт, хотелось бы получить символическую ссылку в папке C:\111 на папку, в которой лежит файл.
Вроде ж нормально всё с кавычками, отчего ж не работает, пишет "не удается найти указанный файл", башка лопнула уже


Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objArgs

Set objArgs = WScript.Arguments				
ext=FSO.GetFile(objArgs(0)) 				
ext=FSO.GetParentFolderName(ext)		' путь к папке, на которую ссылаемся	
Set Folder = FSO.GetFolder(ext)				' отсюда возьмём имя символической ссылки

WshShell.Run "mklink /D "+"""C:\111\"+Folder.Name+""" """+ext+""""

WScript.Quit