title image


Smiley Re: VB6: Filecopy - programmpausee bis fertig kopiert??
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: