Dateien

Die Arbeit mit Dateien per Excel

  • 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

Teile diesen Beitrag

Neuste Beiträge

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung