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
|