Statusanzeige bei Dateien kopieren
15.06.2007 22:39:00
Timo
Ich kopiere mir mit folgendem Code Dateien von einem Verzeichniss ins andere! Da dies unterschiedlich lange dauern kann, wollte ich wissen ob man sich die Dauer des Vorgangs irgendwie über eine Fortschrittsbalken oder eine Statusbar anzeigen lassen kann?
Code:
Private Sub CommandButton3_Click()
Const ueberschreiben As Boolean = True
Quelle = Me.TextBox1
Ziel = Me.TextBox2 & Format(Date, dd_mm_yyyy)
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder Quelle, Ziel, ueberschreiben
Application.ScreenUpdating = True
Application.StatusBar = False
With Me
.Label4.Caption = "Datensicherung beendet"
End With
End Sub
Danke für Eure Hilfe!
Gruß Timo
Anzeige