chris123
Goto Top

Einen Ordner in mehrer Ordner gleichzeitig kopieren

Hi

Ich suche eine Möglichkeit, wie einen Ordner mit Unterordnern gleichzeitig in mehrer Ordner kopieren kann.
Ich habe die Ordner A, B, C (nur als Beispiel, in Wirklichkeit sind es ca. 200 Ordner) und in jeden dieser Ordner soll der Unterordner 2008 kopiert werden.

Gibt es da eine Möglichkeit oder ein Tool?

Vielen Dank für Eure Antworten.
Chris

Content-ID: 85876

Url: https://administrator.de/forum/einen-ordner-in-mehrer-ordner-gleichzeitig-kopieren-85876.html

Ausgedruckt am: 18.04.2025 um 03:04 Uhr

tacker
tacker 18.04.2008 um 17:12:20 Uhr
Goto Top
salü

dies ist mit einem kleinen VBScript zu lösen! hier ein schneller vorschlag!

option explicit

dim folder
dim fso
dim source
dim target
dim subfolder

source = "C:\source"  ' Ordner, wo der zu kopierende 2008 Ordner drinliegt  
target = "C:\ordner"  ' Ordner, wo die 200 Unterordner liegen, in die der 2008 Ordner reinkopiert werden soll  
set fso = createobject("scripting.filesystemobject")  
set folder = fso.getfolder(target).subfolders

For each subfolder in folder
set fso = createobject("scripting.filesystemobject")  
fso.copyfolder source, subfolder
Next

set fso = Nothing
set folder = Nothing

einfach noch die zwei Variablen source und target anpassen!

Gruss tacker
chris123
chris123 18.04.2008 um 19:16:30 Uhr
Goto Top
Vielen Dank für die Antwort

Ich habe das Skipt angepasst:

option explicit

dim folder
dim fso
dim source
dim target
dim subfolder

source = "G:\xyz"
target = "G:\musik\cds\A-Z"
set fso = createobject("scripting.filesystemobject")
set folder = fso.getfolder(target).subfolders

For each subfolder in ordner
set fso = createobject("scripting.filesystemobject")
fso.copyfolder source, subfolder
Next

set fso = Nothing
set folder = Nothing

Bekomme aber folgende Fehlermeldung:
Zeile: 14
Zeichen: 1
Fehler: Variable ist nicht definiert

Was muss ich noch ändern?
tacker
tacker 18.04.2008 um 19:43:21 Uhr
Goto Top
salü sorry hab im nachhinein noch was hineineditiert!

For each subfolder in ordner

diese codezeile abändern in ..

For each subfolder in folder

dann sollte es funzen!

gruss tacker
bastla
bastla 18.04.2008 um 19:57:59 Uhr
Goto Top
Hallo chris123!

Du könntest natürlich auch eine CMD-Shell öffnen und eingeben:
for /d %i in ("G:\musik\cds\A-Z\*.*") do @echo xcopy /e "G:\xyz" "%i\xyz\"  
Dann siehst Du (zum Testen) zunächst, was kopiert würde. Wenn Du das "@echo" entfernst, werden die Kopierbefehle tatsächlich ausgeführt.

Grüße
bastla
chris123
chris123 18.04.2008 um 20:15:33 Uhr
Goto Top
Vielen Dank jetzt hat es geklappt
Auf Folder hätte ich auch kommen können.