[VB6] Assegnare un file ad un array di tipo Byte

[zampa28]

Io ho trovato questo codice:

   Dim nImageSize As Long
    Dim hFile As Long
    Dim hFileOut As Long
    Dim fs() As Byte
    hFile = FreeFile
    Open "C:\tempUploaded\FileA.txt" For Binary As #hFile
        Seek #hFile, LOF(hFile) - 1
        Get #hFile, , nImageSize
        MsgBox (nImageSize)
        ReDim fs(0 To nImageSize - 1) As Byte
        Seek #hFile, 1
        Get #hFile, , fs()
    Close #hFile

ma l'array non è sempre delle dimensioni giuste...