Hi,
das musst Du Dir schon selber programmieren (Schlagwort: „Rekursiver Funktionsaufruf“)
oder
Du verwendest das „Microsoft Scripting Runtime“, dass Du unter „Referenzen“ zum Projekt hinzufügen mußt. Dann kannst Du das machen:
Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject
Call objFSO.CopyFolder(strSource, strDestination, blnOverWriteFiles)
Set objFSO = Nothing
Die Funktion gibt es … probiert habe ich sie noch nicht! Ich bevorzuge die Methode „selbst ist der Mann/Frau“. Das hat den Vorteil, dass man sich noch Features einbauen kann:
- Abbruch des Kopiervorganges
- Anzeige, welche Datei gerade kopiert wird (Statusanzeige in %)
- Anzeige, bei welchem Verzeichnis „er“ gerade ist
- MOVE anstelle von COPY
- nur neuere Dateien kopieren / verschieben
- nur ältere Dateien kopieren / verschieben
- nur vorhandene Dateien kopieren / verschieben
- nur nicht vorhandene Dateien kopieren / verschieben
usw.
Das fällt bei der „.CopyFolder“-Methode ja alles weg!
greets from michL (Vienna)