Filecopy



Excel-Version: 9.0 (Office 2000)
  • Filecopy von Helmut J vom 01.07.2002 - 07:50:06
nach unten

Betrifft: Filecopy
von: Helmut J
Geschrieben am: 01.07.2002 - 07:50:06

Mit was für einen Befehl kann ich mehrere Dateien in einem Aufruf kopieren?
z.B. wie in einer Batchdatei
Copy Ausfall\??????01.txt D:\Programm\Jansen
Filecopy akseptiert keine Platzhalter
FileSystemObject.CopyFile ergibt auch eine Fehlermeldung
objekt oder Variabele nicht deklariert

Danke im voraus

nach oben   nach unten

Re: Filecopy
von: Otto Ecker
Geschrieben am: 01.07.2002 - 10:45:37

Hallo Helmut,

Sub Dateien_kopieren()

Dim Pfadname As String
Dim Dateiname As String
Pfadname$ = "C:\Eigene Dateien\*.*"
Dateiname$ = Dir$(Pfadname$, 0)
Do While Dateiname$ <> ""
If UCase(Right(Dateiname$, 3)) = "XLS" Then
On Error Resume Next
FileCopy "C:\Eigene Dateien\" & Dateiname$, "C:\backup\" & Dateiname$
End If
On Error GoTo 0
Dateiname$ = Dir$()
Loop
End Sub

Gruß Otto

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeitberechnung - dringend"