VisualBasic CopyFolder mit Dateinamen

[irrer-drongo]

Hallo,

ich nutze folgendes Skript, um Verzeichnisse mit Unterverzeichnissen von einer Stelle zur anderen zu kopieren.

Dim fso
sFolder = "c:\Quellverzeichnis"
dFolder = "Zielverzeichnis"
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objfso.CopyFolder sFolder, dFolder, overwritefiles

Aber eigentlich möchte ich nur bestimmte Dateien kopieren, z.B. *.xls.
Das geht im Prinzip mit
fso.CopyFile "c:\Quellverzeichnis\*.xls" , "Zielverzeichnis", OverwriteExisting

Jedoch werden da nur die Excel-Dateien kopiert, die sich unmittelbar in meinem Quellverzeichnis befinden.
Kann man das irgendwie kombinieren? Also alle xls aus dem Quellverzeichnis und dessen Unterordnern? Dabei sollte jedoch, wie bei CopyFolder, die Verzeichnisstruktur erhalten bleiben. Also "einfach" ein Datei-Filter für CopyFolder...

Schöne Grüße,
Drongo

 

[GuardianAngel]

Recursion ist das Zauberwort, sofern es in .NET nicht schon eine Methode gibt, die das kann.

http://www.dreamincode.net/code/snippet1565.htm

 

[irrer-drongo]

Danke, aber das Skript funktioniert leider nicht (erwartet eine Klammer in Zeile 7 hinter origDir), steht auch unter dem Skript in den Kommentaren.
Ich wüßte auch gar nicht wie ich ihm da sage welche Dateien ausgefiltert werden sollen.

Grüße, Drongo

 

[GuardianAngel]

das war auch nicht als Lösung, sondern als denkanstoss gedacht ;P

 

[irrer-drongo]

okay, verstehe. danke :-)