<font color=green>' Alle .LOG Dateien ermitteln</font>
Dim strPath As String
Dim strFile As String
 
strPath = "c:Logs\"
strFile = Dir$(strPath & "*.LOG", vbNormal)
While strFile <> ""
  If strFile <> "." And strFile <> ".." Then
    MsgBox "Gefunden: " & strFile
  End If
  strFile = Dir
Wend