Hallo,

ich würde gerne mit der letzten For each ... Next - Schleife im Code Dateien von Pfad A "pfada" nach Pfad B "pfadb" verschieben.

Ich bekomme das mit der Dateierweiterung nicht hin.

Ich bitte um Hilfe...

Und bedanke mich im Voraus!!

Sub bbsync()
Dim fso As Object
Dim anzdat As Integer, i As Integer
Dim pfada As String, pfadb As String, n As String

pfada = "D:\Daten\aktuell\BoogieBoardBatchSync\von_Boogieboard"
pfadb = "D:\Daten\aktuell\BoogieBoardBatchSync\abarbeiten"

anzdat = 0
Set fso = CreateObject("Scripting.Filesystemobject")
anzdat = fso.getfolder(pfadb).Files.Count
anzdat = anzdat - 2

i = 1
For Each file In fso.getfolder(pfada).Files
    n = anzdat + i
    file.Name = n & ".txt"
    i = i + 1
Next file
For Each file In fso.getfolder(pfada).Files
    fso.movefile pfada, pfadb
Next file

End Sub