Filecopy

Forumthread: Filecopy

Filecopy

01.07.2002 09:50:06

Helmut J

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Filecopy

01.07.2002 12:45:37

Otto Ecker

Re: Filecopy

01.07.2002 12:45:37

Otto Ecker

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

Forumthread: Filecopy

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread