vb6.0怎么读写文件？

读文件

 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

建议你用ini来做,如果非要直接用文本 *** 作就这样做

写入

Open App.Path &"\home.txt" For Output As #1

Print #1, "你要保存的网址"

Close #1

读取

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

Line Input #1, url

MsgBox url 'url里面就是写入的网址了

Close #1

---