|
Also wenn du nur eine Verknüpfung machen willst, dann versuchs damit:
Public Sub CreateLink(ByVal Datei As String, _
ByVal LinkName As String, _
Optional ByVal Parameter As String = "", _
Optional ByVal Comment As String = "", _
Optional ByVal WorkingDir As String = "")
Dim cShellLink As ShellLinkA
Dim cPersistFile As IPersistFile
Set cShellLink = New ShellLinkA
Set cPersistFile = cShellLink
With cShellLink
' Pfad+Dateiname der Anwendung
.SetPath Datei
' Parameter
If Parameter <> "" Then _
.SetArguments Parameter
' Kommentar
If Comment <> "" Then _
.SetDescription Comment
' Arbeitsverzeichnis (Ausführen in)
If WorkingDir <> "" Then _
.SetWorkingDirectory WorkingDir
End With
' Verknüpfung erstellen
cPersistFile.Save StrConv(LinkName, _
vbUnicode), 0
Set cPersistFile = Nothing
Set cShellLink = Nothing
End Sub
Dann z.B diese Prozedur aufrufen:
' Verknüpfung zum Windows-Editor im
' Root-Verzeichnis von C: mit dem Namen test.lnk
CreateLink "c:\winnt\notepad.exe", "c:\test.lnk"
Hoffe das ich dir helfen konnt
Flame
|
|