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 , 30 mal gelesen