VB6文件读写

Private Sub command1_click()

If Dir(App.Path & "\int\1.txt") = "" Then

MkDir App.Path & "\int"

End

Else

Open App.Path & "\int\1.txt" For Input As #1

Line Input #1, textline

Close #1

End If

If textline = "OK" Then Form2.Show

End Sub

要求窗体1上要有一个按钮 并创建窗体2 代码要先编译后运行

读文件

 Dim s As String

   Dim filename As String

   filename = shuxiang & xingzuo & ".txt"

Open filename For Input As #1

Do While Not EOF(1)

Line Input #1, s

Print s

Loop

Close #1

追加写文件

Dim i As Integer, n As Integer, a(6) As Integer

n = 6

Open "D:\1122.txt" For Append As #1

Randomize

For i = 1 To n

    a(i) = Int(Rnd * 1000 + 1)

    Print #1, a(i)

  Next i

Close #1

覆盖写文件

Dim i As Integer, n As Integer, a(6) As Integer

n = 6

Open "D:\1122.txt" For output As #1

Randomize

For i = 1 To n

    a(i) = Int(Rnd * 1000 + 1)

    Print #1, a(i)

  Next i

Close #1

---