AW: Dateiverknüpfungen auf Desktop
24.07.2003 10:07:42
Stephan
Hi Martina!
Hier ein Tipp aus dem Spotlight-Forum (M.I.Nitraum):
Private Declare
Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub machsmal()
Dim LName$, LPfad$, retVal&
'Name der Verknüpfung
LName = ThisWorkbook.Name
'Pfad zur Verknüpfung
LPfad = ThisWorkbook.FullName
'Verknüpfung erstellen
retVal = fCreateShellLink("..\..\Desktop", LName, LPfad, "")
'wenn erfolgreich erstellt, liefert retVal 1 zurück
End Sub