VB codeSub Main()
Dim hFile As Integer
hFile = FreeFile()
Open "C:\a.txt" For Output Access Write As #hFile
Print #hFile, "第一行(有回车)"
Print #hFile, "第二行(无回车)";
Close #hFile
End Sub
[/Quote]
Sub Main()
Dim hFile As Integer
hFile = FreeFile()
Open "C:\a.txt" For Output Access Write As #hFile
Print #hFile, "第一行(有回车)"
Print #hFile, "第二行(无回车)";
Close #hFile
End Sub