[Iska]

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

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

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

WSH:

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

Код:

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