FSO 读写文本文件

FSO读写文本文件

最新推荐文章于 2022-08-18 17:12:02 发布

原创最新推荐文章于 2022-08-18 17:12:02 发布 · 336 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用FSO(File System Object)进行文本文件读写的VBA示例。包括两个主要功能：一是ReadTextFile函数，用于读取指定路径下的文本文件内容；二是WriteTextFile子程序，用于将指定字符串写入到文本文件中。通过创建Scripting.FileSystemObject对象，实现文件的打开、读取、写入及关闭操作。

FSO 读写文本文件
2010年06月06日
　　Option Explicit
　　Public Function ReadTextFile(ByVal FilePath As String) As String
　　'On Error Resume Next
　　Const ForReading As Long = 1
　　Dim fso As Object, f As Object
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f = fso.OpenTextFile(FilePath, ForReading, False)
　　ReadTextFile = f.ReadAll
　　f.Close
　　Set fso = Nothing
　　Set f = Nothing
　　End Function
　　Public Sub WriteTextFile(ByVal FilePath As String, ByVal strText As String)
　　'On Error Resume Next
　　Const ForWriting As Long = 2
　　Dim fso As Object, f As Object
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　If Dir(FilePath) = "" Then
　　Set f = fso.CreateTextFile(FilePath, True)
　　Else
　　Set f = fso.OpenTextFile(FilePath, ForWriting, False)
　　End If
　　f.Write strText
　　f.Close
　　Set fso = Nothing
　　Set f = Nothing
　　End Sub
　　Private Sub Form_Click()
　　WriteTextFile "C:\test.txt", "FSO 读写文本文件"
　　Print ReadTextFile("C:\test.txt")
　　End Sub