datei verschieben in Ordner mit Tagesdatum
27.08.2017 15:39:57
MarciMarc
hat jemand einen Tipp für mich? Ich möchte gern das dass gedruckte in einen Ordner mit einem heutiges Tagesdatum verschoben wird. In einem vorhergehenden Makro habe ich den Ordner bereits angelegt.
Hat jemand eine Idee, wie man das realisieren kann? Diese, meine bisherige Umsetzung, funktioniert leider nicht.
Sub gedrucktes_verschieben()
Dim Ord As String
Const PFAD_A$ = "C:\Users\Marc\CloudSt\9_DRUCKEN\"
Const PFAD_B$ = "C:\Users\Marc\CloudSt\9_DRUCKEN\gedruckt\" & Format(Now, "YYMMDD")
Dim Datei$
Datei = Dir(PFAD_A & "*.pdf", vbDirectory)
Do Until Datei = ""
Name PFAD_A & Datei As PFAD_B & Datei
Datei = Dir
Loop
End Sub
Viele liebe Grüße und besten Dank an alle die mir bisher immer geholfen haben.
Marc