有几个关于文件操作的东西不会用：
一,如何对文件的读写定位？：
我用Seek [#]filenumber, position定位出现了问题
Dim hz_asc(1) As Integer
Seek #1, (hz_asc(0) * 94 + hz_asc(1)) * 32
程序在这出了问题
二，如何读取文件中的信息？：
我用Line Input #filenumber, varname读取信息时程序还是出错：
Dim bit(32) As Variant
For i = 0 To 31
Line Input #1, bit(i)
Next

希望懂的兄弟帮我解释一下

不用解释发生的错误问题也行
告诉我 你们怎么做也好

不是很明白LZ的意思。给个代码自己研究
Dim vardateout As Date
vardateout = DateValue(Text1.Text)
Open "d:\new.dat" For Binary As #1
Put #1, , vardateout

Dim vardateout As Date
Open "d:\new.dat" For Binary As #1
Get #1 , , vardatein
Text2.Text=vardatein
Close #1