ALLE Dateien aus Unterordner in EINEN Ordner kopieren

    Ich würde wieder einmal eure geschätzte Unterstützung benötigen. Ich habe mir ein VB-Script abgeschaut, das alle Dateien aus Unternordner in einen Ordner kopiert. Funktioniert eigentlich prima, nur hätte ich es gerne durch Autoit ausgeführt. Noch dazu, daß man Quelle, Ziel und Dateiart (z.B. mp3) eingeben kann. Spiele mich schon eine Weile herum, komme jedoch nicht zum gewünschten Erfolg. Vielleicht erbarmt sich jemand meiner Seele. Vielen Dank im Voraus

    Hier hätte ich das VB-Script:

    Spoiler anzeigen


    Option Explicit
    Dim fso, strQuelle, strZiel

    Set fso = CreateObject("Scripting.FileSystemObject")

    strQuelle = "e:\musik"
    strZiel = "e:\mp\"

    KopiereDateien strQuelle, strZiel

    WScript.Echo "Vorgang beendet"

    Sub KopiereDateien(strQuelle, strZiel)
    Dim oFolder, oFolders, oFiles, item

    On Error Resume Next

    Set oFolder = fso.GetFolder(strQuelle)
    Set oFolders = oFolder.SubFolders
    Set oFiles = oFolder.Files

    For Each item in OFolders
    KopiereDateien item, strZiel
    Next

    For Each item in oFiles
    fso.CopyFile strQuelle & "\" & item.Name, strZiel, False
    Next
    End Sub