Dim strPath,strText
strPath = "C:\testing.txt"
strText = "This is Test !hello word !"
'调用函数
Call CreateFile(strPath,strText)
 
Sub CreateFile(strPath,strText)
  Dim objFso,objStream
  '创建FileSystemObject对象
  Set objFso = CreateObject("Scripting.FileSystemObject")
  '使用CreateTextFile()，来返回一个TextStream对象句柄
  Set objStream = objFso.CreateTextFile(strPath,True)
  '三个Write的意思为：在文本中写入字符、写入带换行符的字符、写入3个换行符
  objStream.Write(strText)
  objStream.WriteLine(strText)
  objStream. WriteBlankLines 3
  '关闭TextStream对象
  objStream.Close
End Sub

Call CreateFile("c:\test.txt", "This is Test !" & vbCrLf & "hello word !")
 
Sub CreateFile(strPath,strText)
  Dim objFso,objStream
  '创建FileSystemObject对象
  Set objFso = CreateObject("Scripting.FileSystemObject")
  '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄
  Set objStream = objFso.CreateTextFile(strPath,True)
  '写入字符
  objStream.WriteLine(strText)
  '读取字符串分别是：读取整行、读取所有、读取指定数目的字符
  Msgbox (objStream.ReadLine)
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  Msgbox (objStream.ReadAll)
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  Msgbox (objStream.Read(9))
  '关闭TextStream对象
  objStream.Close
End Sub

Dim strPath,strText
strPath = "C:\test.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
  Dim objFso,objStream
  '创建FileSystemObject对象
  Set objFso = CreateObject ("Scripting.FileSystemObject")
  '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄
  Set objStream = objFso.CreateTextFile(strPath,True)
  '在文本中写入字符
  objStream.Write "This is Test !" & vbCrLf & "hello word !"
  '以只读的方式打开文件
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  '读取文件时跳过5个字符；或者跳过当前行，读取下一行
  objStream.Skip(5)
  Msgbox objStream.ReadAll
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  '跳过第一行
  objStream.SkipLine
  Msgbox objStream.ReadAll
  '关闭TextStream对象
  objStream.Close
End Sub

Dim strPath,strText
strPath = "C:\test.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
  Dim objFso,objStream,str
  '创建FileSystemObject对象
  Set objFso = CreateObject ("Scripting.FileSystemObject")
  '以只读的方式打开文件，如果文件不存在则创建它
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  '如果当前的指针不在行末，则读取文本内容
  Do While objStream.AtEndOfLine <> true
    str = str + objStream.Read(1)
  Loop
  msgbox str
  str = ""
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  '如果当前的指针不在文本末端，则读取文本内容
  Do While objStream.AtEndOfStream <> true
    str = str + objStream.Read(1)
  Loop
  MsgBox str
  '关闭TextStream对象
  objStream.Close
End Sub

Call TestTextStream("c:\test.txt")
 
Sub TestTextStream(strPath)
  Dim objFso,objTStream,str
  Set objFso = CreateObject("Scripting.FileSystemObject")
  '以只读的方式打开文件
  Set objTStream = objFso.OpenTextFile(strPath,1)
  '如果当前的指针不在整个文档的末尾，读取文本的所有内容
  Do While objTStream.AtEndOfStream <> true
    objTStream.ReadAll
    str = str + "共有" & objTStream.Line & "行数据，光标最后所在列号为：" &objTStream.Column & vbCrLf
  Loop
  '打印信息
  MsgBox str
End Sub  

Dim Fso,MyFile
Dim strLine
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'以只读的方式打开文件
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
'直到到达文件尾
Do Until MyFile.AtEndOfStream
  '读取当前整行数据
  strLine = MyFile.ReadLine
Loop
MyFile.Close
MsgBox strLine

Dim Fso,MyFile
Dim strLine
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'以只读的方式打开文件
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
Do Until MyFile.AtEndOfStream
  '读取当前整行字符串
  strNextLine = MyFile.ReadLine
  '判断读取的整行字符串是不是空白
  If Len(strNextLine) > 0 Then
    '不是空白，则赋值
    strLine = strNextLine
  End If
Loop
MyFile.Close
MsgBox strLine

MsgBox TestTextStream("c:\test.txt",1)
 
Function TestTextStream(strPath,IntLine)
  Dim Fso,MyFile
  Set Fso = CreateObject("Scripting.FileSystemObject")
  '以只读的方式打开文件
  Set MyFile = Fso.OpenTextFile(strPath,1)
  '如果当前的指针不在整个文档的末尾，读取文本的整行内容
  Do Until MyFile.AtEndOfStream
    TestTextStream = MyFile.ReadLine
    IntLine = IntLine - 1
    '判断光标是否已达到指定行，达到则退出函数
    If IntLine = 0 Then
      Exit Function
    End If
  Loop
End Function