Zitat:

Hallo Ihr Hilfsfreudigen, Ich brauche wieder mal Hilfe, Ich habe einen Kopierprogramm entwickelt, nun möchte ich das mit einem Progressbar verschönern, es soll während der kopierenden daten den fortschritt anzeigen. Nur wie ??? hier mal der code : ' wo soll ich die Progressbar1 einsetzen so das es bei kopiervorgang den fortschritt anzeigt ???   Private Sub Timer1_Timer() Dim Quelle As String Dim Ziel As String Dim Uhr As String Dim Stunden As String Dim Minuten As String Stunden = Text1.Text Minuten = Text2.Text Uhr = Label2.Caption Label2.Caption = Time   If Quelle1.Caption = "" And Ziel1.Caption = "" Then GoTo ende End If     If Uhr = Stunden & ":" & Minuten & ":00" Then   Sicherung.MousePointer = 11   ' 1. Quellordner Quelle = Quelle1.Caption   ' 1. Zielordner Ziel = Ziel1.Caption   Datensicherung.CopyFolder Quelle, Ziel   Sicherung.MousePointer = 0 Label6.Caption = "Letzte Automatische Datensicherung wurde um " & Label2.Caption & " durchgeführt !" End If ende: End Sub Danke für eure hilfe im Voraus !

Jeder f?ngt irgendwann neu an, daher bitte um Verst?ndniss, Bigdaddy