Hallo zusammen,
schon seid ein paar Stunden kann ich folgendes Problem nicht lösen. Ich versuche eine Datei mit einem unbekannten Namen von einem Ordner in einem anderen Ordner zu verschieben. Weder die Varianten (siehe unten) mit einem absoluten noch einem relativen Dateipfad, den ich am liebsten nutzen würde, funktioniert. Könnt Ihr mir bitte weiterhelfen?
Sub Datei_verschieben_absolut()
Name "D:\A\Entry\*.xlsb" As "D:\A\Live\*.xlsb"
End Sub
Sub Datei_verschieben_relativ()
Dim quelle As String
Dim Ziel As String
quelle = ThisWorkbook.Path & "\" & "Entry\" & ".xlsb"
Ziel = ThisWorkbook.Path & "\" & "Live\" & ".xlsb"
Name quelle As Ziel
End Sub
|