Dateien kopieren und umbenennen
24.06.2003 14:20:44
Wieland Engl
ich habe da ein kleines Ploblem und komme nicht weiter, da ich mich mit mit dem Filesystemobject noch nicht so recht auskenne. Vielleicht kann mir ja jemand helfen:
Mit der Copyfile-Methode kopiere ich alle *.xls-Dateien aus mehreren Ordnern in einen anderen. Da es jedoch sein kann, dass es in den unterschiedlichen Quellordnern Dateien mit gleichem Namen gibt, sollen die kopierten Dateien als Zusatz zum Dateinamen den Namen des Quellordners erhalten. Weiss da jemand weiter? Hier ist ein Auszug meines Quelltextes:
...
Dateien = Suchordner & Extension
'Nachsehen, ob das Verzeichnis existiert
Set fs = CreateObject("Scripting.FileSystemObject")
Vorhanden = fs.folderexists(Suchordner)
If Vorhanden = True Then GoTo Kopieren Else GoTo Weiter2
'Kopieren, vorhandene Dateien werden dabei überschrieben
Kopieren:
fs.CopyFile Dateien, "H:Excel\Sammlung", True
...
Das Kopieren der Files klappt recht gut, nur wie kann ich den Files neue Namen geben, die erst zusammengesetzt werden muessen?
Vielen Dank
Wieland