CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

[turbolover]

Создал (.бат) скриптом ярлык на рабпочем столе для открытия папки "AppData".



Код:

Код: Выделить всё

@Echo off
@echo Start file>%Systemdrive%\Users\%Username%\Desktop\AppData.lnk
Exit

[Elven]

учитывая что пути указываются через переменные, можно раскидывать сам ярлык и не париться. Т.е. создать ярлык локально, и раскидать его по всем компам/пользователям.

[Iska]

Цитата turbolover:



Создал (.бат) скриптом ярлык на рабпочем столе для открытия папки "AppData".

CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

Чего-чего-чего?! Это не ярлык, и никакую папку он не откроет.




Цитата turbolover:



к ярлыку на открытия папки "AppData"

CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

WSH:



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Option Explicit
Const WindowsFolder = 0
Dim objFSO
Dim objWshShell
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
With objWshShell.CreateShortcut(objFSO.BuildPath(objWshShell.SpecialFolders("Desktop"), "AppData.lnk"))
	.TargetPath = """" & objFSO.BuildPath(objFSO.GetSpecialFolder(WindowsFolder), "explorer.exe") & """"
	.Arguments = "/n,""" & objFSO.GetAbsolutePathName(objFSO.BuildPath(objWshShell.SpecialFolders("AppData"), "..")) & """"
	.Save
End With
Set objWshShell = Nothing
Set objFSO      = Nothing
WScript.Quit 0

[Elven]

...

[turbolover]

Цитата turbolover:



...

Последний раз редактировалось turbolover, Вчера в 20:47.

CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

?

[turbolover]

Какой смысл вообще заморачиваться с ярлыком, когда AppData по сути не что иное как шелл-папка, которую можно открыть либо по GUID'у, либо по значению реестра, например:



Код:

Код: Выделить всё

@echo off
  setlocal&chcp 1251>nul
    set "key=HKCU\Software\Microsoft\Windows\Current"
    set "key=%key%Version\Explorer\Shell Folders"
    for /f "tokens=2,*" %%i in (
      'reg query "%key%" /v AppData'
    ) do set "app=%%j"
    explorer %app%
  endlocal&chcp 866>nul
exit /b

[Iska]

Цитата greg zakharov:



Какой смысл вообще заморачиваться с ярлыком

CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

Постоянное исполнение пакетного файла вместо однократного создания ярлыка проще? Не могу с Вами согласиться, коллега.

[Iska]

Iska, что важнее: безопасность или удобство?

[greg zakharov]

Iska, что важнее: безопасность или удобство?

[greg zakharov]

greg zakharov, поясните.