Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias _
  "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias _
  "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
 
' liest von allen Dateien im Window-Verzeichnis das Datum
' und gibt das größte Datum zurück
Public Function GetSystemDate() As Date
 
  Dim sFile As String, sPath As String, lRet As String
  Dim FileDate As String, D As Date, I As Byte
 
  ' StartDatum festlegen
  FileDate = #1/1/1980#
 
  ' der erster Durchlauf durchsucht das WIndows-Verzeichnis
  ' der Zweite das Windows-System-Verzeichnis
  For I = 1 To 2
 
    ' Buffer füllen
    sPath = Space(256)
 
    ' Windows-Verzeichnis ermitteln
    If I = 1 Then
 
      lRet = GetWindowsDirectory(sPath, Len(sPath))
 
    Else
    ' Windows-System-Verzeichnis ermitteln
 
      lRet = GetSystemDirectory(sPath, Len(sPath))
 
    End If
 
    ' Pfad auf richtige Länge bringen
    sPath = Left(sPath, lRet)
 
    ' und ggf. ein Backslash ans Ende hängen
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
 
    ' erste Datei ermitteln
    sFile = Dir(sPath & "*.*")
 
    ' (jede Datei prüfen)
    Do Until sFile = ""
 
      ' Änderungsdatum der Datei ermitteln
      D = FileDateTime(sPath & sFile)
 
      ' wenn Änderungsdatum größer ist, dann merken
      If D > FileDate Then FileDate = D
 
      ' nächste Datei ermitteln
      sFile = Dir
    Loop
 
  Next I
 
  ' Datum zurückgeben
  GetSystemDate = DateValue(FileDate)
End Function

Viel Spass,
R@lf