Verknüpfung im Autostart-Ordner

03/04/2011 - 09:57 von Ahmed Martens | Report spam
Hallo Leute,

mit folgendem simplen Code kann ich im Autostart-Ordner 'AllUsers' eine
Verknüpfung erstellen:

<Code>

Private Sub Command_Click()
'Create a WshShell Object
Set wshshell = CreateObject("Wscript.Shell")

' select shortcut name and folder
'AllUsersStartup
Set oshelllink wshshell.CreateShortcut(wshshell.specialfolders("Desktop") & "\aaa.lnk")

'Deskotp
'Set oshelllink wshshell.CreateShortcut(wshshell.specialfolders("Desktop") & "\aaa.lnk")

'Set the Target Path for the shortcut
oshelllink.TargetPath = "notepad.exe"

'Set the additional parameters for the shortcut
oshelllink.Arguments = "/c:\windows\desktop\aaa.txt"

'Save the shortcut
oshelllink.Save

'Clean up the WshShortcut Object
Set oshelllink = Nothing
Set wshshell = Nothing
End Sub

</Code>

Wie bekomme ich aber den Pfad zu Current Users heraus und zwar
unabhàngig von jeglicher Windowsversion?

Vielen Dank schon einmal im voraus.


Gruß Ahmed

Antworten bitte nur in der Newsgroup
 

Lesen sie die antworten

#1 Ahmed Martens
03/04/2011 - 10:06 | Warnen spam
Nicht nur das ich im falschen Forum gepostet habe, ich habe sogar selbst
schon làngst die Lösung gehabt.

Also alles gut. Hat sich erledigt. ;-)

Gruß Ahmed

Antworten bitte nur in der Newsgroup

Ähnliche fragen