vb 对文本文件的读写

很久没有用过 fso 来操作文本文件了,都忘记得差不多了。下面是一个例子:在程序所在的文件夹中用 err.log 文件来记录出错信息。
首先要在“工程”-“引用”中选择“Microsoft Scripting Runtime”,才能正常使用下面的 Scripting.FileSystemObject 。

Private Sub RecordErr(ErrString As String)

    'On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    tempfile = App.Path & "Err.log"
    Set tempfile = fso.OpenTextFile(tempfilter, ForAppending, True, TristateUseDefault)
    tempfile.WriteLine (ErrString)
    tempfile.Close
    Set fso = Nothing

End Sub

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据