'On Error Resume Next
 
Dim strStartFolder 'As String
Dim fso 'As Object
 
strStartFolder = "C:\"
FindeFolderUndDateien(strStartFolder)
 
Function FindeFolderUndDateien(strFolder)
   Set fso = CreateObject("scripting.filesystemobject")
   Set getthefolder = fso.getfolder (strFolder)
   For Each subfldr In getthefolder.subfolders
    if not subfldr.name = "System Volume Information" then 
    Wscript.Echo subfldr
      set Allfiles = subfldr.Files
      For Each datei In Allfiles
         ext = LCase(fso.getextensionname(datei.path))
         Wscript.Echo "Dateiname: "+datei.name+VbCrLf+"Extension: "+ext
      Next
    End If  
  Next
End Function

Hey, was geht?