Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Refresh
Autor: Leo
Datum: 09.01.04 15:17
Hallo, ich kopiere eine liste von ca 1000 Dateien mit FileSystemObject. Die Dateinamen und weiter Infos dazu werden in einer Form angezeigt. Bis ca. zur Hälfte der Dateien wird die Anzeige aktualisiert. Dann wird die Menüleiste der Form weiss und die Aktualisierung der Infos bleibt stehen. Das Programm kopiert aber alle Dateien korrekt bis zum Ende. Ich habe nun zuerst einige Refresh eingebaut, dann nach jeder 30. Dateikopierung ein Form Refresh mit nachfolgendem SLEEP Aber ohne Erfolg. Ich denke dass das Refresh nicht ausgeführt wird, weil dafür keien CPU Zeit zur Verfügung gestellt wird? Was für eine Pause müsste dort eingesetzt werden? Der Codeausschnitt dazu: 'Datei kopieren Q = FiListe(0, i) temp = InStrRev(FiListe(0, i), "\") cFolderLw = Mid(Q, 1, 1) Z = Ziel & "\" & cFolderLw & Mid(FiListe(0, i), 3) ' InStrRev(FiListe(0, i), "\") - 2) fs.CopyFile Q, Z, True 'Information Q = Mid(Q, 1, InStrRev(Q, "\")) PathCompactPath Form1.hdc, Q, 230 .Label8.Caption = Q .Label8.Refresh PathCompactPath Form1.hdc, Z, 230 .Label9.Caption = Z .Label9.Refresh .Text2.Text = Mid(FiListe(0, i), InStrRev(FiListe(0, i), "\") + 1) .Text2.Refresh .PB1.Value = .PB1.Value + FiListe(1, i) .PB1.Refresh .Label7.Caption = CInt(.PB1.Value * 100 / .PB1.Max) & " %" .Label7.Refresh If m >= 30 Then Form1.Refresh Sleep 100 m = 1 End If m = m + 1 Next i Danke für jeden Tipp LEO

Refresh	545	Leo	09.01.04 15:17
Re: Refresh	327	Dieter	09.01.04 15:26
Re: Refresh	299	Leo	09.01.04 21:40

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen