Ordner nach neuester Datei durchsuchen und Verknüpfung auf dem Desktop aktualisieren

sPath = "[Ordner zum Programm]"
sExt = "exe"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sNewestFile = GetNewestFile(sPath)

Const strProgramtitel="[Programtitel]"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strLPfad=objShell.SpecialFolders("Desktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= sPath & "\" & sNewestFile
objShortcut.Description= "[Programmbeschreibung]"
objShortcut.Save

'Funktion NewestFile
Function GetNewestFile(ByVal sPath)
sNewestFile = Null ' initialisiere Wert
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files
' Finde die neueste Datei unter allen anderen Dateien
For Each oFile In oFiles
if lcase(oFSO.GetExtensionName(ofile)) = sExt then 'selektiere Dateien mit der gewünschten Endung aus
On Error Resume Next
If IsNull(sNewestFile) Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
Elseif dPrevDate < oFile.DateLastModified Then
sNewestFile = oFile.Name
End If
end if
On Error Goto 0
Next
If IsNull(sNewestFile) Then sNewestFile = ""
GetNewestFile = sNewestFile
End Function