tach, hab mal ne frage:
ich möchte, dass, wenn ich die exe starte, eine verknüpfung der datei "trainings-map.bat" auf dem desktop erstellt wird. wie kann ich das realisieren?

thx4hlp, ston3d

<pre>Private Sub Form_Load()
Dim objWshShell As Object
Dim strDesktop As String
Dim objMyShortCut As Object
Dim Filename As String

Set objWshShell = CreateObject("Wscript.Shell")
strDesktop = objWshShell.SpecialFolders("Desktop")

Filename = strDesktop & "\" & "trainings-map.lnk"

If Dir$(Filename) = vbNullString Then
Set objMyShortCut = objWshShell.CreateShortcut(Filename)

objMyShortCut.TargetPath = "c:\trainings-map.bat" ' Zeilpfad des Verknüfungs-Objektes.
objMyShortCut.IconLocation = ""
objMyShortCut.Arguments = "" ' Parameter für das Objekt.
objMyShortCut.Description = "" ' Beschreibungstext für das Objekt.
objMyShortCut.WindowStyle = 1 ' Fenstermodus des Objekts.
objMyShortCut.WorkingDirectory = "C:\" ' Arbeitsverzeichnis.
objMyShortCut.HotKey = "" ' HotKey für die Verknüpfung (Info im SDK) -> Muss "" sein!
objMyShortCut.Save

Set objMyShortCut = Nothing
Set objWshShell = Nothing
Else
MsgBox "Der eingegebene Name existiert schon als Verknüpfung am gewählten Ort.", vbExclamation, "Hinweis"
End If
End Sub</pre>

irgendwie funzt das bei mir nicht (bin noch anfänger)
kannst du mir die compilte exe schicken?
stoned@stonedcodaz.de

danke!

Ich habe obigen Code nochmals überarbeitet, nun sollte er funktionieren.

objMyShortCut.TargetPath = "c:\trainings-map.bat"

wie kann ich machen, dass der pfad automatisch erstellt wird.
also wenn die datei z.b. im ordner "d:\spiele\sleephorst" ist, dann soll die verknüpfund darauf hinweisen.
ich möchte das spiel nämlich ein paar freunden geben und die entpacken das wahrscheinlich alle in nem anderen ordner...

mfg ston3d

jo habs schon selber rausgefunden!
und danke für deine hilfe!!! =)