Arquivo Binário

[Guest Roberto Miron]

Help-me Please...

Estou começando em VB, e estou meio perdido em ler e gravar arquivos binários; fiz um arq teste mas estou tomando um baile do danado...

Arq teste....

Private Sub Command1_Click()

Dim b As String

Open "c:\teste\testee.tst" For Binary As #1 Len = 6

a = LOF(1) \ 6

a = a + 1

Label1.Caption = a

b = Text1.Text

Put #1, a, b

Close #1

End Sub

Private Sub Command2_Click()

Dim bb As String, aa As Integer

Open "c:\teste\testee.tst" For Binary As #1 Len = 6

aa = Val(Text2.Text)

Get #1, aa, bb

Label2.Caption = bb

Close #1

End Sub

Aguardo alguém q esteja disposto a dar uma mãozinha...

[Graymalkin]

O que, exatamente, você quer fazer e não deu certo?

Abraços,

Graymalkin