Hallo
In einem solchen Falle solltest Du die Datei auf eine andere Art kopieren.
Wenn die Datei nicht all zu gross ist, so könntest Du es folgenderweise machen:
Dim bBuffer() As Byte
Open "AlterDateiname" For Binary Access Read As #1
Redim bBuffer(LOF(1) - 1)
Get #1, ,bBuffer()
Close #1
Open "NeuerDateiname" For Binary Access Write As #1
Put #1, ,bBuffer()
Close #1
Erase bBuffer()
Shell "NeuerDateiname", vbNormalFocus
Bei grösseren Dateien sollte man jedoch nicht diese Methode wählen.
Gruss THORAX
geschrieben von
thorax
,
19.03.2006, 11:05 Uhr
, 28 mal gelesen