追加文本文件

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Public Sub OpenTextFileTest()
 Dim fs As New FileSystemObject
 Dim f
 Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
 F.Write "Hello World!"
 F.Close
End Sub

Constant Value Description 
ForReading 1 Open a file for reading only. You can't write to this file. 
ForAppending 8 Open a file and write to the end of the file. 
The format argument can have any of the following settings:
Constant Value Description 
TristateUseDefault –2 Opens the file using the system default. 
TristateTrue –1 Opens the file as Unicode. 
TristateFalse   0 Opens the file as ASCII. 
Remarks
The following code illustrates the use of the OpenTextFile method to open a file for appending text:
Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

Private Sub AcadDocument_BeginClose()
Dim strFileName As String
Dim strDwgName As String
Dim strUser As String
Dim strDateTime As Date
Dim strWriteLine As String
strFileName = "filename.csv"
strDateTime = Date$ & " " & Time
strDwgName = ThisDrawing.GetVariable("dwgprefix") & ThisDrawing.GetVariable("dwgname")
strUser = ThisDrawing.GetVariable("loginname")
strWriteLine = strDateTime & "," & "close" & "," & strDwgName & "," & strUser
Dim intFile As Integer
intFile = FreeFile
Open "C:\Documents and Settings\user\My Documents\somefolder" & strFileName For Append As #intFile
Print #intFile, strWriteLine
Close #intFile
End Sub