Ciao a tutti,
sono mesi che non riesco a risolvere questo problema. Per favore qualcuno sa aiutarmi?
La Sub sottostante funziona perfettamente in Visual basic, mentre restituisce errore in Notes quando si esegue la lettura di un file di dimensione superiore a 64Kb.
Il problema è che un array di byte può al massimo contenere 65.536 byte ( -32768 +32768 ). Il fatto è che la stragrande maggioranza dei file con cui ho a che fare sono della dimensione di qualche Mega. Il passo sucessivo come si vede consiste nel convertire l\'array di byte in un stringa binaria (che è quanto a me serve).
... Ho provato a fare un ciclo che leggesse e convertisse 3278 byte per volta concatenando la stringa finale, ma nulla da fare .... non capisco dove sbaglio.
Aiutoooo !!!
Sub LoadBinFile (FileName, Message)
Const adReadAll = -1 \' ------>>> 32768
Dim oStream, bFileData
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1 \' adTypeBinary
oStream.LoadFromFile FileName
bBuffer = oStream.Read(adReadAll) \' <<<------- va in errore
Set Utils = CreateObject("CAPICOM.Utilities")
Message = Utils.ByteArrayToBinaryString(bMessage) \' <<<------- Conversione da bytearray a binary-packed string
oStream.Close
Set oStream = Nothing
End Sub
|