Dateien einzeln, mit Ansage, kopieren
10.06.2007 15:01:42
Thomas
Das Problem ist folgendes:
Alle Dateien eines Verzeichnisses, mit mehreren Unter- und Unterunter-Verzeichnissen sollen kopiert werden. Diejenige Datei, welche das kopieren auslöst ist im Verzeichnis selbst enthalten.
Während des Kopiervorganges soll auf einer UserForm der Namen der Datei, welche zur Zeit kopiert wird, als Caption eines Labels angegeben werden und darunter der Value einer ProgressBar mit jeder kopierten Datei einen Schritt weiter erhöht werden.
Mein Lösungsansatz:
Option Explicit
Sub CommandButton1_Click()
Call DatenSicherung(ThisWorkbook.Path, "D:\Datensicherung")
End Sub
Sub DatenSicherung(ByRef Quelle As String, ByRef Ziel As String)
Dim Datei As Object
Dim Ordner As Folder
For Each Datei In Ordner
FileCopy Quelle, Ziel, True
UserForm1.Label1.Caption = Datei.Name
UserForm1.ProgressBar1.Value = _
UserForm1.ProgressBar1.Value + 1
Next Datei
End Sub
Leider bin ich bereits bei dem Versuch den ersten Ordner nach meinen Vorstellungen zu kopieren kläglich gescheitert.
Von der rekursiven Kopiererei der Unterordner ganz zu schweigen.
Kann mir bitte jemand weiterhelfen.
Viele Grüße
Thomas