Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien kopieren

Dateien kopieren
13.02.2004 20: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
Anzeige
AW: Dateien kopieren
13.02.2004 20: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 15:54:10
Rolf
Hallo Alex,
der Code funktioniert prächtig.
Thanks
Gruß Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige