[VB6] Da Array di Byte a File

[zampa28]

Dato un array di tipo Byte che contiene un file come "ricompongo" il file?

Ho questo codice:

   
    Dim b() As Byte
    b() = 'qui popolo l'array con il file
    For T = 0 To UBound(b)
        strRemoteVer = strRemoteVer + Chr(b(T))
    Next
    Open nomefile For Output As #1
        Print #1, strRemoteVer
    Close 1

effettivamente ricrea il file, ma ci mette un'infinità di tempo.
Per un file da 300Kb ci mette anche 3 minuti.

C'è un modo più rapido?

[SimoneVB]

Esistono metodi migliori di quello che hai usato.
Effettivamente eseguire un ciclo for su un'array di byte per creare la stringa da stampare sul file può farti perdere parecchio tempo... tutto dipende dalle dimensioni dell'array.
Ti conviene aprire il file in modalità binaria e fare il PUT di tutto l'array.

'popoli l'array
  Open MioFile For Binary As #1
    Put #1, , b()
  Close #1

in questo modo sovrascrivi i dati sul file. Se vuoi fare un'append, ossia accodare l'array in fondo al file, devi specificare il n° del record del file.

  lLen = FileLen(MioFile)
  Open MioFile For Binary As #1
    Put #1, lLen + 1, b()        ' append
  Close #1

[zampa28]

Grazie!