Dim sFile As String
  Dim sDate As Variant
  Dim sPath As String
  Dim sFileNew As String
 
  <font color=green>' Pfad (Verzeichnis)</font>
  sPath = "d:	emp\"
 
  sFile = Dir$(sPath & "*.*")
  While sFile <> ""
    If sFile <> "." And sFile <> ".." Then
      If FileDateTime(sPath & sFile) > sDate Or sDate = "" Then
        sDate = FileDateTime(sPath & sFile)
        sFileNew = sFile
      End If
    End If
    sFile = Dir$
  Wend
 
  MsgBox "Die neueste Datei im Verzeichnis " & sPath & _
    " ist: " & sFileNew