Файлы

[Sasha_karasov]

Ребята привет !!!

А как мне можно через Binary открыть сначала к примеру 100 кб а потом следующие 100 кб

[Qubicz]

Код: Выделить всё

Private Sub Command1_Click()
st = Input(100, #1)
MsgBox st
End Sub
Private Sub Form_Load()
Open "c:\book.txt" For Binary As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

[vvs_adm]

А не так разве?

Код: Выделить всё

st = Input(100*1024, #1)

[Qubicz]

Возвращает строку длиной 100 символов, насколько помню 1 байт 1 символ?(Юникод не имею ввиду)