Visual Basic 6 - velocizzare uso file binari

Forum - Visual Basic 6 - velocizzare uso file binari

Zhura (Ex-Member)
Newbie

Messaggi: 15
Iscritto: 03/10/2006

Postato alle 13:51
Domenica, 12/11/2006

Salve a tutti
in un programma visual basic 06 ho provato a copiare un file aprendo l'originale in modalità binary, leggendo ogni byte e depositandolo nella copia.
Il problema e che per file lunghi (.avi, immagini bitmap create con paint etc.) ci mette qualcosa come tre quarti d'ora a realizzarsi, o comunque tempi improponibili!!!!!!!!!!!!!!!!!!!!!
Ho provato a aprirlo in una modalità diversa ma in sequenziale non riesce a copiarlo (riesce a depositare nella copia solo una strana scritta) mentre con random i tempi sono gli stessi.
In Visual Basic .NET si potrebbero usame i comandi

My.Computer.FileSystem.ReadAllBytes
My.Computer.FileSystem.WriteAllBytes

ma in VB 06? Avete qualche idea di come velocizzare il processo?
Grazie mille

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:36
Domenica, 12/11/2006

Call FileCopy(percorso iniziale, percorsofinale).
ma non ho mai provato su file lunghi.

Zhura (Ex-Member)
Newbie

Messaggi: 15
Iscritto: 03/10/2006

Postato alle 19:49
Domenica, 12/11/2006

Grazie mille
funziona tutto a meraviglia :asd:

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:29
Lunedì, 13/11/2006

Di nulla.
piuttosto hai scoperto perchè andava così lento?

Reese (Ex-Member)
Pro

Messaggi: 179
Iscritto: 09/08/2006

Postato alle 9:15
Martedì, 14/11/2006

Andava cosi' lento perche' leggeva ogni byte e lo scriveva in un altro. Assurdo.

Zhura (Ex-Member)
Newbie

Messaggi: 15
Iscritto: 03/10/2006

Postato alle 21:25
Venerdì, 17/11/2006

E' vero leggeva un byte alla volta ma pensavo che fosse l'unico modo per farlo.
Comunque ho scoperto che in alternativa si possono leggere e depositare tutti i byte usando un array in questo modo:

Dim x() As Byte
Get #1, ,x
Put #1, ,x

così puoi anche velocizzare la modifica di file grandi!!!!!!!!!!!!