Dim shortCut
Dim DesktopPath 
Dim Ausdruck
Dim AlteDatei
Dim Arg
Dim found
CONST NEUEDATEI = "3.0.01_03.mde"


DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")


Set shortCut = CreateObject("WScript.Shell").CreateShortcut(DesktopPath & "\" & "2000Pilze.lnk")

Ausdruck = shortCut.arguments
' Agruments mit der Bezeichnung der neuen Version updaten

Do while (len(Ausdruck) > 12) and not found
   if right(Ausdruck,4) =".mde" then
      AlteDatei = right(Ausdruck,13)
      Arg = left(Ausdruck,len(Ausdruck) - 13)
      found = true
      Arg = Arg & NEUEDATEI 
   Else 
      ArgEnde = right(Ausdruck,1) & ArgEnde
      Ausdruck = left(Ausdruck,len(Ausdruck)-1)
   End If
Loop

If found then
   shortCut.arguments = Arg & ArgEnde
   shortCut.save
   MsgBox "Der Link ist von '" & AlteDatei & "' auf '" & NEUEDATEI & "' angepasst worden."
Else
   MsgBox "Auf dem Desktop wurde kein Link gefunden, welcher angepasst werden konnte."
End If

'MsgBox shortCut.targetpath
'MsgBox shortCut.arguments