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