菜鸟问题，各位帮帮忙

[lgytj]

怎样读一个文件（可控制读取得字节数和判断是否读取到某一位置），令：最好有相关的文档提供。
谢谢

[zyl910]

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)

把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

[cgh1970]

up

[lgytj]

先谢谢一楼，但文件很大读入岂不很占内存？另外我要按字节读取，控制读取的长度怎么做？最好有相关的电子文档。谢谢！