Verlaufanzeige / Progressbar ? aber wie

Hallo,
wer weiß denn wie ich ne verlaufanzeige einbaue???

Also genauer:
Wenn ein Ordner Kopiert wird(
’ Ordner kopieren
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
’ Welcher Ordner soll kopiert werden?
sFolderPath = Text1.Text
’ Wohin soll der Ordner kopiert werden?
sDestPath = „C:\Meine_Sicherungsdateien“
’ Kopiervorgang starten
Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath
) hätte ich gerne ne „Verlaufanzeige“, die dann am ende ist, wenn der Ordner vollständig kopiert ist… .

Welche Verweise, Komponenten und Code brauch ich denn da???

Lieben dank
Udo

Hallo,

wer weiß denn wie ich ne verlaufanzeige einbaue???

Die Verlaufsanzeige benutzt Du so:

Progressbar1.Max = Maximalwert
Progressbar1.Value = Istwert

Angezeigt wird der Istwert im Verhältnis zum Maximalwert.
Den Maximalwer und den Istwert mußt Du selbst ermitteln, den Istwert in einer Schleife jeweils eintragen.
Wenn Du einen Vorgang hast, der länger dauert und Du keine Zwischenergebnisse hast, an denen Du sehen kannst, wie weit der Vorgang ist, kannst Du das nicht anzeigen.

Gruß, Rainer

Danke, hat geholfen!
vielen lieben dank

„Spitze“

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]