Zeige alle Dateien (nicht rekursiv) in einem Verzeichnis an.

showFiles.vbs

 Dim Datei 
 
 meinOrdner = "D:\projektetest"
 
 ListeDateien meinOrdner
 
 '-----------------------------------------------------
 Sub ListeDateien(Ordner)
 
  set Anzahl = CreateObject("Scripting.FileSystemObject").GetFolder(Ordner).Files
  wscript.echo Anzahl.Count & " Dateien"
  For Each Datei in Anzahl
     wscript.echo Datei.name 
  Next
 End Sub
 '----------------------------------------------------- 

zurück