[VB6] Gestione di un file binario

[stejano]

allora ragazzi mi sto cimentando coi file binari....li apro e li modifico pure...
ora ho questo codice

Private Sub Command2_Click()
Dim a As String
Open "C:\Documents and Settings\stejano\Documenti\samsung\z560aiff6\amss. bin" For Binary Access Read Write As #1


Seek #1, 35

a = Space$(200)
Get #1, , a
Text1.Text = a


End Sub


con quet codice io all'interno del file binario mi piazzo al 35 e leggo per 200 byte...dopodichè riporto sul text...in poche parole estraggo dal file binario parte di testo....
ora però vorrei esportare dal file bianrio che ho io, una foto...
io ho pensato che forse non era male creare un array e poi rileggerlo tutto assieme..
però forse sbaglio....voi cosa mi suggerite per estrarre la foto dal mio file binario???
mille grazie...

[wallrider]

ma l'array a che ti serve? :master:

[stejano]

chiedo non sono sicuro...ho pensato di caricare i byte in un array e dopo rileggeerlo tutto assieme in maniera da ricomporre così l'immagine in byte in un array..

[MItaly]

Ha senso creare un array di byte, ma per motivi prestazionali ti conviene, se ti devi limitare ad una copia, non caricare il file in memoria tutto di un botto, ma di utilizzare un array di dimensioni fisse da usare come buffer di lettura, in modo da leggere e scrivere, ad esempio, 32 KB di dati per volta.
Tra parentesi, se vuoi avere del codice ancora più veloce che effettua la copia del file, puoi usare la API CopyFile.