Fortschrittsbalken während einer Kopie
17.01.2016 11:05:14
Willi
es ist Sonntag und man sollte wirklich etwas anderes machen, aber das Problem läßt mich nicht los und ich ärgere mich über meinen Knoten im Gehirn.
Also ich möchte aus dem Hauptmodul eine Userform aufrufen, in der während der Dauer einer Kopie ein Fortschrittsbalken läuft.
Dazu habe ich auch hier schon gesucht (und gefunden) aber trotzdem -> ich finde keine für mich passende Lösung.
1. Variante:
Private Sub IngramMicro_Info()
myFSO.copyfile "C:\Datei.csv", "C:\CSV-Sicherungen\Datei" & "_" & Format(Date, "DDMMYYYY") & _
".csv", True
myFSO.copyfile "C:\Datei.csv", "T:\CSV-Sicherungen\Datei" & "_" & Format(Date, "DDMMYYYY") & _
".csv", True
For x = 1 To 1000
' Irgendwas hochzählen
Next x
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As _
stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
End Sub
Private Sub UserForm_Click()
End Sub
2. Variante:
Private Sub IngramMicro_Info()
For x = 1 To 1000
myFSO.copyfile "C:\Datei.csv", "C:\CSV-Sicherungen\Datei" & "_" & Format(Date, "DDMMYYYY") & _
".csv", True
myFSO.copyfile "C:\Datei.csv", "T:\CSV-Sicherungen\Datei" & "_" & Format(Date, "DDMMYYYY") & _
".csv", True
For x = 1 To 1000
' Irgendwas hochzählen
Next x
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As _
stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
End Sub
Private Sub UserForm_Click()
End Sub
Wie also kann ich es erreichen, daß ich das Kopieren anstoße und dann der Balken anfängt zu laufen? Das Ganze wäre nicht so dramatisch, wenn nicht das Kopieren von C: nach T: (Server beim Provider) so ewig lange dauern würde.
Bitte sorge einer für das Lösung meines Knotens (egal welche Lösungen ich im www finde, ich komme immer wieder auf diese beiden Lösungen und die gehen eben nicht).
Danke.
Willi