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