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