Dateien kopieren

Forumthread: Dateien kopieren

Dateien kopieren

13.02.2004 21:21:54

Rolf

Ich habe auf dem Laufwerk F:\Epson\*.jpg mehrere Bilder und möchte diese in das Laufwerk C:\Bildereinfügen\ kopieren. Der Dateiname soll erstmal gleich bleiben.
Habe zwar schon einiges gefunden, aber immer nur eine Datei und der Name der Datei mußte auch feststehen.
Danke im vorraus. hoffentlich hat jemand eine Idee.

mfg
Rolf

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateien kopieren

13.02.2004 21:25:16

Alex K.
AW: Dateien kopieren , Danke

14.02.2004 16:54:10

Rolf

AW: Dateien kopieren

13.02.2004 21:25:16

Alex K.

Hallo Rolf,
mein Vorschlag für eine Lösung


Public Sub OrdnerKopieren()
Dim files       As String
Dim tarpath     As String
Dim path        As String
tarpath = "c:\Bildereinfügen\"
path = "F:\Epson\"
files = Dir(path & "*.jpg")
Do While files <> ""
FileCopy path & files, tarpath & files
files = Dir()
Loop
End Sub

AW: Dateien kopieren , Danke

14.02.2004 16:54:10

Rolf

Hallo Alex,
der Code funktioniert prächtig.
Thanks
Gruß Rolf

Forumthread: Dateien kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread