Dim s As String = "I Like Foxtable"Dim f As String = SpecialFolder.MyDocuments & "\test.txt"FileSys.WriteAllText(f, s, False)
生成txt文件的时候,把文件放到自己的定义的新建文件夹下面。新建文件夹可以自己定义,并且用代码生成。