Ordner per Excel VBA kopieren
✓ Bibliothek aktivieren/Verweis setzen: Microsoft Scripting Runtime
✓ FileSystemObject
✓ Prüfen, ob ein Ordner existiert mit fso.FolderExists()
✓ Messagebox
✓ If-Anweisung
✓ Ordner kopieren mit fso.CopyFolder
✓ Ordner verschieben mit fso.MoveFolder
✓ Ordner löschen mit fso.DeleteFolder
✓ Datei-Pfad manuell auslesen
✓ FileSystemObject
✓ Prüfen, ob ein Ordner existiert mit fso.FolderExists()
✓ Messagebox
✓ If-Anweisung
✓ Ordner kopieren mit fso.CopyFolder
✓ Ordner verschieben mit fso.MoveFolder
✓ Ordner löschen mit fso.DeleteFolder
✓ Datei-Pfad manuell auslesen
Code
Sub Ordner()
Dim FSO As New FileSystemObject
'Existiert Ordner?
If FSO.FolderExists("C:\Users\kaiwe\Desktop\YouTube Videos") Then
'Ordner kopieren
FSO.CopyFolder "C:\Users\kaiwe\Desktop\YouTube Videos", _
"C:\Users\kaiwe\Desktop\Kopierter Ordner"
'Ordner verschieben
FSO.MoveFolder "C:\Users\kaiwe\Desktop\Kopierter Ordner", _
"C:\Users\kaiwe\Desktop\YouTube Videos"
'Ordner löschen
FSO.DeleteFolder "C:\Users\kaiwe\Desktop\YouTube Videos"
End If
'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Sub
