'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadFile()
'函数/过程的目的：写入文件
'假设：无
'影响：创建文件，写入文件（判断C盘下是否有文件，没有文件则创建，有则写入）
' 实现该目的，有两种方式。1、单独通过OpenTextFile实现
' 2、OpenTextFile与CreateTextFile结合实现
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'
Sub ReadFile()
Const ForReading = 1, ForWriting = 2, ForAppending = 8,File="c:\test.txt"
Dim Fso,MyFile,OpenFile
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(File)) Then
MsgBox File&"存在"
Set OpenFile = Fso.OpenTextFile(File,ForAppending,True)
OpenFile.WriteLine("this is new test")
OpenFile.Close
Else
MsgBox File&"不存在"
Set MyFile = Fso.CreateTextFile(File)
MyFile.WriteLine("this is a test")
End If
End sub
Call ReadFile()
'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadFile()
'函数/过程的目的：写入文件
'假设：无
'影响：创建文件，写入文件（判断C盘下是否有文件，没有文件则创建，有则写入）
' 实现该目的，有两种方式。1、单独通过OpenTextFile实现
' 2、OpenTextFile与CreateTextFile结合实现
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'
Sub ReadFile()
Const ForReading = 1, ForWriting = 2, ForAppending = 8,File="c:\test.txt"
Dim Fso,MyFile,OpenFile
Set Fso = CreateObject("Scripting.FileSystemObject")
Set OpenFile = Fso.OpenTextFile(File,ForAppending,True)
OpenFile.WriteLine("this is new test")
OpenFile.Close
End sub
Call ReadFile()
'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadLineTextFile()
'函数/过程的目的：读取文件
' ReadLine 读取一行
' ReadLineAll 读取全部
'假设：无
'影响：读取文件内容
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'
Function ReadLineTextFile()
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\test.txt", ForWriting, True)
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
Set MyFile = fso.OpenTextFile("c:\test.txt", ForReading)
ReadLineTextFile = MyFile.ReadLine ' Returns "Hello world!"
MsgBox ReadLineTextFile
End Function
Call ReadLineTextFile()
Function WriteBlankLinesToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\test.txt", ForWriting, True)
f.WriteBlankLines 2
f.WriteLine "Hello World!"
Set f = fso.OpenTextFile("c:\test.txt", ForReading)
WriteBlankLinesToFile = f.ReadAll
MsgBox WriteBlankLinesToFile
End Function
Call WriteBlankLinesToFile ()
本文转自hblxp32151CTO博客，原文链接：http://blog.51cto.com/starpoint/585054，如需转载请自行联系原作者
