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
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