MkDir "d:\vb\student"Open "d:\vb\student\scroe.txt" For Output As #1Print #1, "一些信息"Close #1RichTextBox1.LoadFile "d:\vb\student\scroe.txt"
在最前面再加上一句On Error Resume Next就更完美了,呵呵