File Reading

[Evan]

I want to read a file and
put it in a byte array.
Why wont it put it in the
array?

 
Dim StrFile as String
Dim bytTemp() As Byte
StrFile = "C:\readme.txt" 
    Open strFile For Binary As #1
    Get #1, , bytTemp
    Close #1

ReadMe.txt:

 
MainBoard : M599LMR
BIOS Date : Release 03/08/2000S

VGA : SiS Multimedia V1.08
Sound : Version 2.32
Modem : Pctel R7.64-pcc-06
Lan DAVICOM : Version 1.12
Gamut : Version 1.56
Super Voice : Version 2.2
Audio Rack : Version 2.32

[Edited by Evan on 08-29-2000 at 03:13 PM]

[HeSaidJoe]

Private Sub Command1_Click()

Dim StrFile As String
Dim bytTemp() As Byte
Dim i As Integer

StrFile = "C:\readme.txt"
    Open StrFile For Binary As #1
 Do Until EOF(1)
 ReDim Preserve bytTemp(i)
    Get #1, , bytTemp(i)
     i = i + 1
  Loop
    Close #1
    
'for display only List1
For i = 0 To i - 1
List1.AddItem bytTemp(i)
Next

End Sub

[Iain17]

No offence HeSaidJoe, but that is the slowest possible way to read a file in, you also seem to be redimensioning the array as a variant, or does a dynamic array stay as the type it was originally declared as? Thats a good question.

Private Sub Command1_Click()

Dim StrFile As String
Dim bytTemp() As Byte

StrFile = "C:\readme.txt"
Open StrFile For Binary As #1
'redim the array to the size of the file
ReDim bytTemp(LOF(1) - 1) As Byte
'read the whole file in one go
Get #1, , bytTemp
'close the file
Close #1
    
End Sub

[Edited by Iain17 on 08-29-2000 at 05:02 PM]

[Evan]

Ok..

That works .. all acept the
file im reading is going to
be about 100mbs sometimes.
How do I store it in a byte
varable with out it over flowing?

[HeSaidJoe]

No offence taken..I only adjusted what was given to make it work.

[Iain17]

Are you sure that is a good idea. 100mb file in memory. Can you not work with chunks of the file? That i think would be better idea. I just tried the code i gave you, and it loaded a 100mb file ok, took some time though.

Mind you i am running windows 2000, so it may not work on 98.