将控制台内容输出到文本文件
示例代码：
Imports System.IO
Module Module1Sub Main()Dim fs As New FileStream("D:\Desktop\test\输出结果.txt", FileMode.Create, FileAccess.Write, FileShare.None)Dim sw As New StreamWriter(fs)Console.SetOut(sw)Console.SetError(sw)For i = 1 To 5Console.WriteLine(i)Nextsw.Flush()Console.Out.Close()Console.SetOut(Console.Out)Console.SetError(Console.Error)MsgBox("完成")End Sub
End Module演示： 
vb.net开发安卓软件的方法：https://blog.csdn.net/wgxds/article/details/135436865
免费资源下载：
带百分比的进度条控件（ProgressBar）源码：https://blog.csdn.net/wgxds/article/details/139898440
万能粘贴手（可将任意文件转为文本）：https://blog.csdn.net/wgxds/article/details/140112100
vb.net帮助文档：https://blog.csdn.net/wgxds/article/details/139843942
vb.net教程：https://blog.csdn.net/wgxds/article/details/139843921
.net5.0简体中文语言包：https://blog.csdn.net/wgxds/article/details/139506634
c#和vb代码互转工具：https://blog.csdn.net/wgxds/article/details/139496929