'写文件
Dim mStreamWriter As New
System.IO.StreamWriter(Application.StartupPath &
"\1.txt")
mStreamWriter.WriteLine("HelloWorld1")
mStreamWriter.Close()
'追加
Dim mStreamWriter2 As New
System.IO.StreamWriter(Application.StartupPath & "\1.txt",
True)
mStreamWriter2.WriteLine("HelloWorld3")
mStreamWriter2.Close()
'读文件
Dim mStreamReader3 As New
System.IO.StreamReader(Application.StartupPath &
"\1.txt")
Dim strLine As String
Do While mStreamReader3.Peek > 0
strLine =
mStreamReader3.ReadLine
MsgBox(strLine)
Loop
mStreamReader3.Close()
加载中，请稍候......
喜欢
加载中…