Favorites, Featured

Dateien

June 29, 2021

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