Всем привет.
пишу процедуру чтения файла в переменную в шестнадцатеричной форме
но вот проблема если в байте встречается ноль то он пропускается.
Как решить эту проблему наиболее коротким способом или может быть
есть какаянибуть функция, которая сразу читает в шестнадцатеричной форме?


Open "c:\file" For Binary As #1
For n = 1 To 128
Get #1, n, rHEX
fil$ = fil$ + Hex(rHEX)
Next n

AndreTM Ghost_XOpen "c:\file" For Binary As #1
Dim rHEX as Byte
For n = 1 To 128
Get #1,, rHEX
fil$ = fil$ + Hex(rHEX)
Next n

У меня именно так и записана переменная "Dim rHEX as Byte" только в самом начале, а я взял середину процедуры, как раз это и не решает проблему с нулями.

Конечно, можно добавить условие типа:

Private Sub Form_Load()
Dim rHEX As Byte
Open "c:\file" For Binary As #1
For n = 1 To 128
Get #1, , rHEX
f$ = Hex(rHEX)
If Len(f$) = 1 Then
fil$ = fil$ + "0" + f$
Else
fil$ = fil$ + f$
End If
Next n
End Sub

но может, есть вариант по короче???