Dateien

Inhalt

  • Dateinamenerweiterung aktivieren
  • Dateipfad auslesen
  • Datei umbenennen mit Name … As …
  • Datei kopieren und einfügen mit FileCopy
  • File System Object Bibliothek aktivieren
  • Geöffnete Datei kopieren und einfügen mit FSO.CopyFile
  • Mehrere Dateien gleichzeitig kopieren und einfügen mit Wildcards
  • Existiert die Datei? mit FSO.FileExists
  • FileExists und die If-Anweisung
  • Datei verschieben und gleichzeitig umbenennen mit FSO.MoveFile
  • Datei löschen mit DeleteFile

Code

Sub Dateien()

'Datei umbenennen
Name "C:\Users\kaiwe\Desktop\Beispieldatei.xlsx" As "C:\Users\kaiwe\Desktop\Umbenannt.xlsx"

'Datei kopieren
FileCopy "C:\Users\kaiwe\Desktop\Umbenannt.xlsx", "C:\Users\kaiwe\Desktop\Beispielordner\Umbenannt.xlsx"
'FileCopy "C:\Users\kaiwe\Desktop\Dateien.xlsm", "C:\Users\kaiwe\Desktop\Beispielordner\Dateien2.xlsm"

Dim FSO As New FileSystemObject

FSO.CopyFile "C:\Users\kaiwe\Desktop\Dateien.xlsm", "C:\Users\kaiwe\Desktop\Beispielordner\Dateien2.xlsm"

'Mehrere Dateien gleichzeitig kopieren
FSO.CopyFile "C:\Users\kaiwe\Desktop\*.mp4", "C:\Users\kaiwe\Desktop\Beispielordner\"

'Existiert Datei?
If FSO.FileExists("C:\Users\kaiwe\Desktop\Umbenannt.xlsx") Then
    
    'Datei verschieben
    FSO.MoveFile "C:\Users\kaiwe\Desktop\Umbenannt.xlsx", "C:\Users\kaiwe\Desktop\Beispielordner\Umbenannt3.xlsx"
End If

'Datei löschen
FSO.DeleteFile "C:\Users\kaiwe\Desktop\Beispielvideo.mp4"
    
'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 - 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

Close Bitnami banner
Bitnami