＋设为首页 ＋添加到收藏夹
；第一行
DEMO1 DEMO
；第二行
22222 2222
Dim iFileNum As Integer
Dim strFileName As String
If Right$(App.Path, 1) = "\" Then
strFileName = App.Path & "AA.TXT"
Else
strFileName = App.Path & "\AA.TXT"
End If
iFileNum = FreeFile
Open strFileName For Append As #iFileNum
Print #iFileNum, "；第一行"
Print #iFileNum, "DEMO1 DEMO "
Print #iFileNum, "；第二行"
Print #iFileNum, "22222 2222"
Close #iFileNum
较安全的方法是用FilesystemObject对象操作.需引用Microsoft Scripting Runtime.
Dim iFileNum As Integer
Dim strFileName As String
If Right$(App.Path, 1) = "\" Then
strFileName = App.Path & "AA.TXT"
Else
strFileName = App.Path & "\AA.TXT"
End If
iFileNum = FreeFile
Open strFileName For Append As #iFileNum
Print #iFileNum, "DEMO1 DEMO "
Print #iFileNum, "22222 2222"
Close #iFileNum
与我的编程习惯相同！
