Fortschritt Dateienkopieren anzeigen

Hallo liebe Forumsleute,
habe eine Bitte um Hilfe.
Nachdem mir als VBA-Anfänger das letzte Mal (meine allererste Frage in diesem Forum) Sigi so gut geholfen hat, vielen Dank nochmal, traue ich mich jetzt ein zweites Mal zu fragen.
Folgende Problemstellung:
Ich möchte mit VBA von einem Server per IP-Adresse, aus einem Ordner mit div. verschiedenen Dateien, mehrere xls-Dateien auf C:/Temp-RL/ rüber kopieren, die ich dann auswerte und bearbeite. Das habe ich auch recht gut hinbekommen. Es müssen 2 Dateitypen mit folgenden Dateinamen (mit Platzhaltern) kopiert werden: 20*.xls und Abrechnung*.xls
Da immer eine unterschiedliche Anzahl dieser Dateien im Ordner sind und kopiert werden sollen, zwischen 1 und ca. 300, die Datenübertragung per VPN-Tunnelung nicht die schnellste ist, hätte ich gerne als eine Art Fortschrittsbalken z.B. per MsgBox "Datei 1 von 208 kopiert - Datei 2 von 208 kopiert" usw. fortlaufend während des Kopierens angezeigt bekommen.
Geht das? ohne großen Aufwand?
Nachfolgend ein Ausschnitt dessen, was ich bisher zusammengestrickt habe - wie gesagt, bin VBA-Anfänger, deshalb ist mein "Kopierprogramm" sicherlich sehr umständlich geschrieben - das Kopieren funktioniert aber problemlos.
Also, geht das mit der "Vortschritts-MsgBox"?
Vielen Dank im Voraus!
Ralf
If Dir(ProjOrdner & "\20*.xls") "" Then
Dim Quelle As String
Quelle = ProjOrdner & "\20*.xls"
Dim fs As Object
Dim I As Integer
Debug.Print Quelle
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyFile Quelle, ZielOrdner
Set fs = Nothing
End If
If Dir(ProjOrdner & "\Abrechnung*.xls") "" Then
Quelle = ProjOrdner & "\Abrechnung*.xls"
Debug.Print Quelle
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyFile Quelle, ZielOrdner
Set fs = Nothing
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Anzahl_Dateien_im_Ordner() Dim oFSO As Object, oFolder As Object, oFile As Object, loAnzahl As Long Const strPfad As String = "D:\Temp" 'Pfad anpassen Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(strPfad) For Each oFile In oFolder.Files If oFile.Name Like "*20*.xls" _ Or oFile.Name Like "Abrechnung*.xls" Then loAnzahl = loAnzahl + 1 End If Next oFile MsgBox "Anzahl Dateien: " & loAnzahl Set oFile = Nothing: Set oFolder = Nothing: Set oFSO = Nothing End Sub

Hi onur,
zur weiteren Erklärung:
Mein beruflicher Arbeitsplatz, noch 5 Monate bis zur Rente :-), ist in einem Augsburger Büro, eine kleine Zweigniederlassung. Von dort greife ich per Netz auf den Server der Firmenzentrale in Frankfurt zu, dort liegen die Excel-Dateien die von den Frankfurter Kollegen betreut und bearbeitet werden.
Ich arbeite wechselweise tageweise unterschiedlich in dem Augsburger Büro oder zuhause im Homeoffice mit der langsamen VPN-Tunnelungsverbindung zum Frankfurter Daten-Server.
Wenn ich also beispielsweise zwei Tage zuhause arbeite, muss ich auf den Frankfurter Zentralserver zugreifen, da nur dort die aktuellen Daten liegen - und das per langsamer VPN-Tunnelung. Für meine normale Regeltätigkeit mit CAD reicht die Geschwindigkeit, da ich abends die bearbeitete CAD-Datei, meist nur eine, auf den Frankfurter Server überspiele, das dauert nicht so lange.
Mit dem Kopieren der XLS-Dateien scheint das aber wohl geschwindigkeitsmäßig etwas anders zu sein.
Aber wie schon erwähnt, werde ich die Übertragungsgeschwindigkeit mit den verschiedenen VBA-Codes morgen testen.
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

Fortschritt Dateienkopieren anzeigen

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fortschritt Dateienkopieren anzeigen

39 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread