' Copyright (C) 2000-2018, Stefan Kanthak Option Explicit With WScript.CreateObject("Scripting.FileSystemObject") .CreateFolder("Anwendungsdaten").Attributes = 37 With .CreateTextFile("Anwendungsdaten\DESKTOP.INI") .WriteLine("[.ShellClassInfo]") .WriteLine("CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}") .WriteLine("ConfirmFileOp=0") .WriteLine("Flags=2") .WriteLine("IconFile=%SystemRoot%\SYSTEM32\SHDOCVW.DLL") .WriteLine("IconIndex=0") .WriteLine("InfoTip=Zeigt Dateien und Ordner im eigenen Anwendungsdaten-Verzeichnis an.") ' .WriteLine("LocalizedResourceName=@%SystemRoot%\SYSTEM32\SHDOCVW.DLL,...") .Close End With .GetFile("Anwendungsdaten\DESKTOP.INI").Attributes = 39 End With With WScript.CreateObject("WScript.Shell").CreateShortcut("Anwendungsdaten\TARGET.LNK") .TargetPath = "%APPDATA%" .Description = "Zeigt Dateien und Ordner im eigenen Anwendungsdaten-Verzeichnis an." .IconLocation = "%SystemRoot%\SYSTEM32\SHDOCVW.DLL,0" .Save End With