FSO 读写文本文件

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