Filecopy mit überschreiben falls Datei existiert

[Robert Hawkins]

Hallo NG

Wie kann ich bei Filecopy existierende Files überschreiben, oder eine
Aufforderung dazu erhalten?

Wäre froh wenn jemand weiterhelfen kann.

Danke und Gruss
Robert

Excel XP

[Monika Weber]

Hallo Robert,

> Wie kann ich bei Filecopy existierende Files überschreiben, oder eine
> Aufforderung dazu erhalten?

hier ein möglicher Lösungsansatz:

Sub test()
Dim strFrage As String
Dim strQuelle As String
Dim strZiel As String

strQuelle = "C:\Mappe1.xls"
strZiel = "C:\Mappe2.xls"

strFrage = MsgBox("Willst Du die " & _
strZiel & _
" wirklich überschreiben?", _
vbYesNo)

If strFrage = vbYes Then
FileCopy strQuelle, strZiel
Else
MsgBox "Die Datei wurde nicht überschrieben"
End If
End Sub

--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]

http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)

[Robert Hawkins]

>-----Originalnachricht-----

Danke für Deine Hilfe Monika

ich habe aber vor einige Tausend Dateien zu kopieren, und
so wie ich Deinen Code verstehe, werde ich dann immer
abgefragt, oder ? Der Kopier-Code steht bereits, dass
heisst es fehlt mir nur ein möglicher Parameter. Oder
sollte ich statt filecopy Xcopy verwenden?

Für mich ist es wichtig, dass ich nur bei bereits
vorhandener Datei gefragt werde.

Gibt es da eine andere Lösung?

Danke und Gruss
Robert