VBA - Inhalt von Ordner in anderen Ordner kopieren

Hallo Experten,
Ich habe knapp 20 Dateien in 12 Ordnern die nicht nur identisch benannt sind, sondern die ich auch aus übergeordneten Verzeichnis/Datei weitgehend identisch bearbeite (Kopieren/Einfügen/Löschen von Werten etc.).
Um die Bearbeitung (der Dateien in 12 Ordnern) nicht ein Dutzend mal mit Schaltflächen/Code etc. wiederholen zu müssen, dachte ich, dass ich per Button alle Dateien aus einem der 12 Ordner in einen anderen Ordner (Name: temp) kopiere, dann meine Bearbeitung in der ausgehenden Mappe erledige, um danach per Button wieder 20 Dateien aus dem nächsten Ordner in temp zu kopieren,- bzw die vorhandenen ohne Nachfrage, ersetze und meine Bearbeitung fortsetze.
Also, ich bräuchte ein VBA, welches mir per Button alle Dateien die im Verzeichnis (Pfad ist in A1 angegeben) sind, in den Ordner C:\Users\Besitzer\Desktop\ELO\temp kopiert und evt. vorhandenen Dateien zuvor löscht,- ohne Nachfrage.
Kann mir jemand von den VBA-Experten da weiterhelfen?
Gruß
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fred, :-)
... einfach mit "Shell" lösen: ;-)

Option Explicit
Sub Main()
Shell ("xcopy " & ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value & _
Application.PathSeparator & "*.xls*" & " " & _
Environ("UserProfile") & "\Desktop\" & "ELO\temp\" & "/Y")
End Sub

Dabei steht bei mir in Tabelle1, A1 "C:\Temp" - NICHT "C:\Temp\" - dann müsstest Du den Code etwas anpassen. ;-)
Mit den guten alten DOS-Befehlen lässt sich in VBA einiges machen: ;-)
XCOPY - SHELL und ein paar Dinge mehr...
Falls das Verzeichnis auf dem Desktop nicht vorhanden ist, kannst Du es recht einfach mit der API-Funktion "MakeSureDirectoryPathExists" anlegen. Diese hat den Vorteil, dass sie - falls der Ordner schon vorhanden ist - das einfach ignoriert, sprich - keinen Fehler auslöst und auch Ordner mit mehreren Tiefen anlegen kann (im Gegensatz zu MkDir). ;-)

Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Sub Main_1()
MakeSureDirectoryPathExists Environ("UserProfile") & "\Desktop\" & "ELO\temp\"
End Sub

Servus
Case

Beliebteste Forumthreads (12 Monate)

VBA - Inhalt von Ordner in anderen Ordner kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Inhalt von Ordner in anderen Ordner kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread