现在VB.NET的程序目录中有一文件aa.txt文件，现用printline方式向文件中写入内容，并保存关闭。

vb在指定程序保存的目录下创建指定名称的txt并将#1文件内容写入这个txt并保存在这个文件夹中~

Dim strPath$, strFileName$, strTmp$, iSeq%
strPath = App.Path & "\" '当前目录
strTmp = Text1.Text '文件名称
strFileName = strPath & strTmp & ".Txt" '假设文件类型为TXT文本文件
iSeq = 0 '文件序号
Do While Dir(strFileName) ""
iSeq = iSeq + 1
strTmp = Text1.Text & CStr(iSeq)
strFileName = strPath & strTmp & ".Txt" '假设文件类型为TXT文本文件
Loop

Dim iFn%
iFn = FreeFile
Open strFileName For Output As iFn
Print #iFn, Text1.Text & CStr(iSeq) '写入文件内容
Close #iFn

写入：Dim sr As New IO.StreamWriter(Application.StartupPath & "/写入的文本.txt")
sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath & "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath & "/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() >= 0
TextBox1.Text = sr.ReadLine() （读取文本到文本框）
Loop end if

'打开时不用对话框打开，而用代码直接打开。可以吗。请给写出上面打开写入保存的代码 操作，且界面中不显示aa.txt文件能做到吗另外，VB.NET中如何创建一个TXT文件。对一个TXT文件，存在就打开它，如不存在就创建它，如何操作
If New FileInfo("d:\内容.txt").Exists Then
FileOpen(1, "d:\内容.txt", OpenMode.Output)
PrintLine(1, "Hello", "World")
Else
Dim fs As FileStream = File.Create("d:\内容.txt")
FileOpen(1, "d:\内容.txt", OpenMode.Output)
PrintLine(1, "Hello", "World")
End If

---

现在VB.NET的程序目录中有一文件aa.txt文件，现用printline方式向文件中写入内容，并保存关闭。视频