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