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)

Rispondi quotando
