Люди, как открыть файл и положить его в переменную типа Binary?
Всем Гуру заранее спасибо!
Dim a() As Byte
ReDim a(FileLen("MyFile"))
Open "MyFile" For Binary As #1
Get #1, , a()
Close #1
Dim a As String
Open "MyFile" For Input As #1
a = Input(LOF(1), #1)
Close #1
Open "MyFile" For Output As #1
Print #1, MyStr;
Close #1
a = Input(LOF(1), #1)
Сейчас этот форум просматривают: AhrefsBot и гости: 1