如果只是末尾的空行，直接用Trim方法就可以了 Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了 MsgBox(str)'这里可以看到
