Ordner Kopieren

Inhalt

✓ 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

 

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

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung