Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
文件操作append 追加 output 覆盖
例如open "e:\1.txt" for output as #1
print #1,"字符串"
Public Sub PubWriteTxt(ByVal LogContext As String) '记录文本信息
Dim LogFile As String
LogFile = App.Path & "\" & Format(Date, "YYYYMMDD") & ".txt"
If Dir(LogFile) <> "" Then
Open LogFile For Append As #1
Else
Open LogFile For Output As #1
End If
Print #1, LogContext
Close #1