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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
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
Mein Kurs

Jetzt registrieren