vb.net写入.txt文件，写不全

Question

Dim fsw As New FileStream("D:\87123.txt", FileMode.Create, FileAccess.ReadWrite)
Dim wz As New StreamWriter(fsw)
foi i=0 to 10000
wz.WriteLine(i)
next
wz.close
fsw.close

写完打开记事本，只写到9741行，请问是什么原因

Answer 1

没有问题的，那就是你记事本了
Dim sr As New System.IO.StreamWriter("D:\87123.txt")

For i = 0 To 1000
sr.WriteLine(i)

Next
sr.Close()
你把数值改小些试试