[VB6] Apertura e lettura di byte da file binario

[fleshpc900]

Con il codice scritto di seguito, leggo 511 byte di un file?

Dim y(511) As Byte
Dim x As Integer
x= FreeFile
Open percorso For Binary As x
Get x,,y
Close x