AW: Verknüpfung auf Desktop anlegen
16.08.2014 12:52:06
fcs
Hallo Kurt,
mit "t*.xls.lnk" kannst du natürlich keine Datei löschen, deren Dateiname mit "R" beginnt.
Mit der folgenden Anpassung sollte das Löschmakro funktioieren.
Gruß
Franz
Sub ArbeitsmappeAufDesktopKillen()
Dim wshk As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wshk = CreateObject("WScript.Shell")
s_DeskTop = wshk.SpecialFolders("Desktop")
With ThisWorkbook
If Dir(s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk") "" _
Then
Kill s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk"
Else
MsgBox "Kein Link von Vorversion auf Desktop vorhanden"
End If
End With
Set wshk = Nothing
End Sub