von Holgi » 28.01.2022, 20:11
ein sehr flexibles Tool, welches ich für Batch Dateien nutze, um damit einen Desktop Link zu erstellen ist link.vbs
Code: Alles auswählen
Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set args = WScript.Arguments
If args.Count < 1 Then
WScript.Echo "Dateiname fehlt."
WScript.Quit
End If
ziel = args(0)
ziel = fso.GetAbsolutePathName(ziel)
idxName = InStrRev(ziel, "\")
idxExt = InStrRev(ziel, ".")
If idxExt < idxName Then idxExt = Len(ziel) + 1
ordner = Left(ziel, idxName - 1)
linkName = Mid(ziel, idxName + 1, idxExt - idxName - 1)
desktop = wshShell.SpecialFolders("Desktop")
Set link = wshShell.CreateShortcut(desktop & "\" & linkName & ".lnk")
link.TargetPath = ziel
link.WorkingDirectory = ordner
link.Save
als link.vbs abspeichern und dann automatisch eine Verknüpfung erstellen lassen in der Form:
link.vbs "ProgramPfad\ProgramName.exe"
mehr Info u.a. hier:
https://docs.microsoft.com/de-de/troubl ... t-with-wsh
ein sehr flexibles Tool, welches ich für Batch Dateien nutze, um damit einen Desktop Link zu erstellen ist link.vbs
[code]Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set args = WScript.Arguments
If args.Count < 1 Then
WScript.Echo "Dateiname fehlt."
WScript.Quit
End If
ziel = args(0)
ziel = fso.GetAbsolutePathName(ziel)
idxName = InStrRev(ziel, "\")
idxExt = InStrRev(ziel, ".")
If idxExt < idxName Then idxExt = Len(ziel) + 1
ordner = Left(ziel, idxName - 1)
linkName = Mid(ziel, idxName + 1, idxExt - idxName - 1)
desktop = wshShell.SpecialFolders("Desktop")
Set link = wshShell.CreateShortcut(desktop & "\" & linkName & ".lnk")
link.TargetPath = ziel
link.WorkingDirectory = ordner
link.Save[/code]
als link.vbs abspeichern und dann automatisch eine Verknüpfung erstellen lassen in der Form:
link.vbs "ProgramPfad\ProgramName.exe"
mehr Info u.a. hier:
[url]https://docs.microsoft.com/de-de/troubleshoot/windows-client/admin-development/create-desktop-shortcut-with-wsh[/url]