Office: (Office 2016) Datei Kopieren

savas_31 · 15. Juli 2020

Hallo,

ich öffne ein Dialogfenster, darin wähle ich eine Datei aus. Diese sollte dann in einem anderen ordner verschoben werden. Habe mir schon ein Code gebastelt aber bekomme immer die Fehlermeldung "Fehler beim Zugriff auf Pfad/Datei".
Was mache ich denn falsch ?

Hier ist mein Code:
Code:

Dim f As Office.FileDialog
Dim dateiname As String
Dim DestinationFile As String
Dim za As String

DestinationFile = "C:UsersTest"
Set f = Application.FileDialog(msoFileDialogFilePicker)

f.Show
dateiname = f.SelectedItems(1)
FileCopy dateiname, DestinationFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hoffe ihr könnte mir Weiterhelfen. DANKE *Smilie

:)

Ohrkester · 16. Juli 2020

Servus savas_31,
Einen Backslash nach dem c: hast Du?
Das Forum unterdrückt nämlich diesen Backslash in der Anzeige.

maikek · 16. Juli 2020

Moin,
hast du mal über Debug.Print den Inhalt von dateiname und DestinationFile überprüft?
maike

savas_31 · 7. Januar 2021

von Ohrkester

Servus savas_31,
Einen Backslash nach dem c: hast Du?
Das Forum unterdrückt nämlich diesen Backslash in der Anzeige.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja habe ich

savas_31 · 7. Januar 2021

von maikek

Moin,
hast du mal über Debug.Print den Inhalt von dateiname und DestinationFile überprüft?
maike
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit msgboxen hatte ich den Inhalt von Dateiname überprüft und da kam der richtige Pfad mit dem Dateiname also so : "C:Users Test2 Bild.PNG"

savas_31 · 7. Januar 2021

von savas_31

Mit msgboxen hatte ich den Inhalt von Dateiname überprüft und da kam der richtige Pfad mit dem Dateiname also so : "C:Users Test2 Bild.PNG"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Ziel ist es ja auch das "Bild.PNG" in das Zielordner zu verschieben

savas_31 · 16. Juli 2020

Ok habs mit dem folgenden Code hinbekommen :
Code:

Dim fs As Object
Dim f As Office.FileDialog
Dim dateiname As String
Dim DestinationFile As String

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = Application.FileDialog(msoFileDialogFilePicker)

DestinationFile = "C:UsersTest"

f.Show
dateiname = f.SelectedItems(1)

fs.CopyFile dateiname, DestinationFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine frage hätte ich noch. Wie kann ich beim verschieben der Datei den Name verändern?

Ohrkester · 16. Juli 2020

Servus,
Filecopy geht nur File to File und nicht File to Folder.
Du musst im DestinationFile noch einen Filenamen anhängen.
Den kannst Du aus Dateiname per InstrRev herauslösen.
Code:

DestinationFile = "d:"
Set f = Application.FileDialog(msoFileDialogFilePicker)

f.Show
dateiname = f.SelectedItems(1)
Debug.Print DestinationFile
Debug.Print dateiname
DestinationFile = DestinationFile & Mid(dateiname, InStr(dateiname, "."))
FileCopy dateiname, DestinationFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 16. Juli 2020

Nebenbei:
Datei verschieben (geäußerter Wunsch) und Datei kopieren (FileCopy als Ausführung und im Thementitel) sind unterschiedliche Dinge.

savas_31 · 7. Januar 2021

von Ohrkester

Servus,
Filecopy geht nur File to File und nicht File to Folder.
Du musst im DestinationFile noch einen Filenamen anhängen.
Den kannst Du aus Dateiname per InstrRev herauslösen.
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DestinationFile = "d:"
Set f = Application.FileDialog(msoFileDialogFilePicker)

f.Show
dateiname = f.SelectedItems(1)
Debug.Print DestinationFile
Debug.Print dateiname
DestinationFile = DestinationFile & Mid(dateiname, InStr(dateiname, "."))
FileCopy dateiname, DestinationFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank *Smilie

savas_31 · 7. Januar 2021

von ebs17

Nebenbei:
Datei verschieben (geäußerter Wunsch) und Datei kopieren (FileCopy als Ausführung und im Thementitel) sind unterschiedliche Dinge.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau, hab aber leider nicht gefunden wie ich die Datei verschieben kann. Kopieren war dann nur Plan B. Kannst du mir vielleicht weiterhelfen wie ich die Datei verschieben kann?

Maxel · 17. Juli 2020

Sieh Dir mal die Name-Anweisung an.

savas_31 · 7. Januar 2021

von Maxel

Sieh Dir mal die Name-Anweisung an.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau Danke habs mit der Anweisung verändern können

Office: (Office 2016) Datei Kopieren

Datei Kopieren

Datei Kopieren

Datei Kopieren

Datei Kopieren

Datei Kopieren

Datei Kopieren - Similar Threads - Datei Kopieren

Datei kopieren und umbenennen

Kopie von Datei-Vorlage zur weiteren Bearbeitung

Daten aus einer Datei in andere Datei Kopieren u. Einfügen Dynamisch

Makro Zip-Datei von Webseite runterladen, auspacken, kopieren

einzelne Spalten in neue Dateien kopieren

Blattschutz nach Datei kopieren defekt?

VBA verschiedene definierte "nicht leere" Bereiche aus Datei kopieren in neue Datei