Kopiere flere filer fra mange undermapper til én mappe - Batch script

hvilket OS?

Windows XP

lav en tekstfil kopierfiler.bat

copy c:\dirRoot\QWE\fil.txt c:\dirRoot\Allfiles\QWE.txt

Hov, jeg fik lige en reminder på denne post.

Jeg har løst opgaven ved at lave et VB script, som jo sagtens kan eksekveres fra cmd.
Hvis nogen skulle kunne bruge løsningen har jeg den her:

Dim filesys, FolderMain, FolderSecondary, Subfolder, SubSubfolder, FolderCollection, SubFolderCollection, FileCollection, FileNewName, FileCounter, TheFile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set FolderMain = filesys.GetFolder("Behandles")
Set FolderCollection = FolderMain.SubFolders 
FileCounter=0
For Each Subfolder in FolderCollection
    Set FolderSecondary = filesys.GetFolder(FolderMain &"\"& Subfolder.name)
    Set SubFolderCollection = FolderSecondary.SubFolders
    For Each SubSubfolder in SubFolderCollection
        Set FileCollection = SubSubfolder.Files
        'FileCounter = FileCounter + 1                'For Debug
        For Each TheFile in FileCollection
            'Rename file & copy to mainfolder
            If filesys.GetExtensionName(TheFile)="001" Then
                if FileCounter = 0 then
                    Wscript.Echo "First file found!" & vbCrLf & vbCrLf & "Click OK to begin process"
                End If
                FileCounter = FileCounter + 1
                FileNewName = Subfolder.Name & "_" & SubSubfolder.Name & "_" & FileCounter & ".001"
                'Wscript.Echo FileNewName            'For Debug
                TheFile.name = FileNewName
                filesys.CopyFile TheFile, "C:\Temp\EPJ\NewFiles\"
            End If
        Next
    Next
Next 
Wscript.Echo "Done! " & vbCrLf & FileCounter & " files has been copied!"