'*************************************************************'

'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 ()