ich habe wieder ein Thema.
Wie kann ich per Makro von der gerade geöffnet Datei eine Verknüpfung in einem bestimmen Verzeichnis erstellen.
Wie kann ich später per Makro diese Verknüpfung wieder löschen.
Danke für EUre Hilfe.
Gruß Günter
Dim oShell As Object, oLink As Object
Dim sLinkName$, sOrdner$, sLinkPfad$
sLinkPfad = ThisWorkbook.FullName 'Link Pfad
sLinkName = ThisWorkbook.Name 'Link Name
sOrdner = "G:\Ordner\" 'Ordner
' Verweis auf den Windows Scripting Host erstellen
Set oShell = CreateObject("WScript.Shell")
' Neuen Link Erstellen
Set oLink = oShell.CreateShortcut(sLinkName & ".lnk")
With oLink
.TargetPath = sLinkPfad
.WorkingDirectory = sOrdner
.Save
End With
Set oLink = Nothing
Set oShell = Nothing
und so kannst Du diese wieder löschenDim sLinkPfad$
sLinkPfad = ThisWorkbook.FullName & ".lnk" 'Link Pfad
Kill sLinkPfad
Gruß Tino