read Binary files *resolved*

[SeaHag]

It seems like every example i look at is the same..
but i cannot get any output.


How do i open a binary file and look at it??

Private Sub Command2_Click()
 
 
Dim Path As String
    Path = "C:\Documents and Settings\All Users\Desktop\test.exe" 
 
Dim b() As Byte
 
ReDim b(FileLen(Path))
Open Path For Binary Access Read As #1
Get #1, , b()
Close #1
 
Text1 = b()
 
 
 
End Sub

Seahag

[SeaHag]

debug.print FileLen(path)   ' = 0   THATS NOT RIGHT?

[techgnome]

See if this works......

Private Sub Command2_Click()
 
 
Dim Path As String
    Path = "C:\Documents and Settings\All Users\Desktop\test.exe" 
 
Dim b() As Byte
 
Open Path For Binary Access Read As #1
ReDim b(LOF(#1))
Get #1, , b()
Close #1
 
Text1 = b()
 
 
 
End Sub

[SeaHag]

I feel stupid.

it didnt like

"C:\Documents and Settings\All Users\Desktop\test.exe"

ALL USERS was wrong.?

i even went to the file. right clicked and cut and paste the
file path..

thanks for your help.





Seahag