VB2010如何创建txt文件

System.IO.File.WirteAllText("\Test.txt","内容")

Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
Dim intFileNum As Integer = FreeFile()
Dim strFileName As String = "d:\" & Second(Now) & ".txt" FileOpen(intFileNum, strFileName, OpenMode.Output, OpenAccess.Default, OpenShare.Shared, )
Print(intFileNum, Now)
FileClose(intFileNum)
End Sub

Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
Dim intFileNum As Integer = FreeFile()
Dim strFileName As String = "d:\" & Second(Now) & ".txt"
FileOpen(intFileNum, strFileName, OpenMode.Output, OpenAccess.Default, OpenShare.Shared, )
Print(intFileNum, Now)
FileClose(intFileNum)
End Sub

用streamwriter试试？我记得是可以的，也非常简单。