Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien mit fso.movefile in anderen Ordner verschieben
 08.10.2017 08:29:26 jörg
*****
Solved
08.10.2017 09:49:17 Gast46645
*****
Solved
08.10.2017 20:46:41 jörg
Solved

Ansicht des Beitrags:
Von:
jörg		 Datum:
08.10.2017 08:29:26		 Views:
921		 Rating:
     
Antwort:
 Nein
Thema:
Dateien mit fso.movefile in anderen Ordner verschieben

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien mit fso.movefile in anderen Ordner verschieben
 08.10.2017 08:29:26 jörg
*****
Solved
08.10.2017 09:49:17 Gast46645
*****
Solved
08.10.2017 20:46:41 jörg
Solved