''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script        : Dateien auflisten mit einer vorgegebenen Endung              '
' File          : 02_04_DateienListen.vbs                                      '
' Date          : 2006-12-05 - Last modified: 2006-12-05                       '
'                                                                              '
'               Michael Puff - http://www.michael-puff.de                      '
'                                                                              '
'               Durch ein Container Attribut iterieren                         '
'                   mit einer For-Each-Schleife                                '
'                                                                              '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set fso = CreateObject("Scripting.FileSystemObject")

Titel = "Dateien auflisten"
Text = "Diese VB Script listet alle Dateien mit der Endung 'COM' in dem angegebenen Ordner auf."

Ordner = InputBox(Text, Titel, "c:\")

if Ordner <> "" then

  if fso.FolderExists(Ordner) then
    Set fo = fso.GetFolder(Ordner)
    Set fs = fo.Files

    For Each file in fs
      if fso.GetExtensionName(file.path) = "COM" then
        DateiName = DateiName & file.Name & Chr(13)
      end if
    Next

    MsgBox DateiName, vbOKOnly + vbInformation, Titel
  else
    MsgBox "Der Ordner " + Ordner + " existiert nicht!", vbOKOnly + vbCritical, Titel
  end if

end if