N'abend zusammen,
Ich möchte mir eine Batch erstellen,
welche automatisch best. Desktopverknüpfungen anlegt.
Am liebsten mit vorheriger Überprüfung ob eine entsprechende Verknüpfung schon vorhanden ist.
Geht das? Steh ich nur auf dem Schlauch
oder ist das nicht so einfach wie ich's erhoffe?
wer-weiss-was?
Danke und Gruß
Marcel
Hallo Marcel,
es ist so einfach.
Eine Desktopverknüpfung ist nichts weiter als eine ganz normale Verknüpfung (ink-Datei), die im Verzeichnis c:\dokumente und Einstellungen\<username/All users>\Desktop liegt.
Kopieren reicht also völlig ais.
Gruß
Peter
Hallo Peter,
danke für die Antwort,
aber:
die Desktopverknüpfung gibt es noch nicht, sprich ich muss Sie erst erstellen, kopieren kann ich ja nichts.
Die Verknüpfung verweist dann ja auf die eigentliche Datei.
Sprich wenn ich die Startdatei im Hauptverzeichnis änder greift die Verknüpfung auch darauf zurück.
Gruß
Marcel
Hi Marcel,
das was du vorhast kann man ueber den Scripting-Host von Windows erledigen, uns so gehts:
=======================================================
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "test shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "app.exe,1"
link.TargetPath = "c:\blah\app.exe"
link.WindowStyle = 3
link.WorkingDirectory = "c:\blah"
link.Save
===========================================================
Quelle : MSDN Lib 2002
Dieses Stueck Code kann man ueber den ScriptingHost oder aber auch aus EXCEL, ACCESS oder Word heraus ausfuehren.
hope this helps
Tschau
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Peter,
danke für deine Ausführung,
werde mal schauen ob ich damit was anfangen kann, haben im Netz starke Einschränkungen *g*
Ansonsten such ich mir ne Alternative.
Besten Dank nochmals
Gruß
Marcel
das was du vorhast kann man ueber den Scripting-Host von
Windows erledigen, uns so gehts:
=======================================================
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "test shortcut"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "app.exe,1"
link.TargetPath = "c:\blah\app.exe"
link.WindowStyle = 3
link.WorkingDirectory = "c:\blah"
link.Save
===========================================================