Public Class Form1
Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click
FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.
WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file.
FileClose(1) ' Close file.
End Sub
Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click
Dim TextLine As String
FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.
TextLine = LineInput(1) '读取一行就了
MsgBox(TextLine)
FileClose(1)
End Sub
End Class
最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你
追问额...你这代码是VB6.0的吧,我想找VS2008版的呢,好像VS2008叫VB.NET吧?
追答我用的是VS2005 也是VB。 NET,vs2008只有180天试用我不想用 ,既然你都知道 代码是6.0的,只是语法不一样 我给你命令 你自己去玩吧 还帮你写了10几分钟 用这条命令My.Computer.FileSystem 什么都有了
追问其实我是不知道语法,呵呵!不管怎样都谢谢你哈...不过VS2008是可以破解的吧,怎么我的没有试用时间?还是我不知道在哪里?

追答现在有破解版本 应该的 我是去年 3月下的只能试用半年的唉 太大了 有空再下下试试,其实2008和2005没多大区别,只是那个F什么来的功能更强更多了