Ciao,
Ho dei problemi con la funzione FileGet
Devo devo aprire un file, con questa funzione, ma il valore dell' arrey value mi ritorna sempre = 0
Ecco il codice:
Sapete dirmi perchè.
codice:
Dim fileName As String
Dim Lunghezza As Integer
Dim value() As Byte
Dim fileNumber As Integer
Lunghezza = FileLen(fileName)
ReDim value(Lunghezza - 1)
fileName = MyFile.Value
fileNumber = FileSystem.FreeFile()
FileSystem.FileOpen(fileNumber, fileName, OpenMode.Binary)
FileSystem.FileGet(fileNumber, value)
FileSystem.FileClose(fileNumber)