Ordner auslesen um Dateien zu bearbeiten

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von N3M0.

    Ordner auslesen um Dateien zu bearbeiten

    Hallo Forum,

    ich arbeite erst seit ein paar Wochen mit VBScript, daher habe ich noch so einige Probleme.
    Nun zu meinem Problem.
    Ich habe ein Script geschrieben welches bestimmte Zeilen einer .xls Datei in eine .csv Datei schreibt.
    Dies Funktioniert auch alles einwandfrei, aber nun habe ich ein Verzeichnis mit ca 100 .xls Dateien und damit ich nicht jede Datei einzeln mit meinem Script ausführen muss wollte ich nun das es alle Dateien nacheinander durchläuft.
    Ich habe aber leider keine Ahnung wie ich diese ganzen Dateien einlese und nacheinander abarbeite.

    Ich hoffe ihr könnt mir bei meinem Problem helfen.

    Mfg N3M0

    Visual Basic-Quellcode

    1. Set FSO=CreateObject("Scripting.FileSystemObject")
    2. Set Folder=FSO.GetFolder("c:\MyExcelFolder")
    3. For Each File in Folder.Files
    4. If File.Name Like "*.xls" Then Debug.Print File.Name
    5. Next

    Ist nicht getestet, müsste aber passen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    N3M0 schrieb:

    Verstehe nur nicht ganz wofür jetzt das debug.print und das file.name steht.

    Naja.
    Als einfachste Möglichkeit, um dir deutlich zu machen, wozu der restliche Code da ist.
    Er listet alle Excel Files im Direktfenster des Debugger.
    Genau dieses Stück Code musst du durch deinen eigenen ersetzen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --