用VB中文件读写操作示例相关代码.........初学者!急用

Question

我要临时用VB做点东西文件操作用起来老不顺,有哪位大哥有保存过相关的代码,越
基础越简单越好!

Answer 1

Dim i As Integer
Public head(30) As LongPrivate Sub Command1_Click()
CommonDialog1.InitDir = "d:\"
CommonDialog1.ShowOpen
Dim b As Variant
fileno = FreeFile
b = CommonDialog1.FileName
Open b For Binary As fileno
For i = 0 To 30
Get fileno, , head(i)
Next
Close fileno
Text1.Text = head(0)
End Sub

Answer 2

谢过楼上...
我不用文件控件只想实现简单数据存储例如:
 tmpstr = "无可厚非"
    Open "D:\datarecord.txt" For Output As #1
    Print #1, tmpstr
    Close #1这个是要覆盖原来文件,连续存储的操作是什么.....
还有怎么可以我在执行写文件操作时,禁其他程序对文件的读操作..还请高手指点!

Answer 3

tmpstr = "无可厚非"
    Open "D:\datarecord.txt" For append  lock　Read As #1 '追加　锁定
    Print #1, tmpstr
    Close #1