Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
132to136
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filecopy

Filecopy
01.07.2002 07: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
Anzeige
Re: Filecopy
01.07.2002 10: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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige