Featured

Ordner Kopieren

April 30, 2021

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