文件管理输入与输出（Word文稿）

u    （Input）模式实例：读取指定 TestFile.txt文件内容并显示。

    Dim strFileName As String     '文件名及完整路径

    Dim lngHandle    As Long      '文件号或称文件句柄

    Dim strAll          As String     '所读取的文本文件的所有内容

    Dim strLine        As String     '在循环中存放每行的内容

    strFileName = CurrentProject.Path & "\TestFile.txt"  '文件名称及完整路径

    lngHandle = FreeFile()  '通过FreeFile函数取得一个空闲文件号(也称文件句柄)

    Open strFileName For Input As lngHandle  '以Input模式打开文件

    '循环直到文件尾，EOF函数避免在文件结尾进行操作错误

    Do While Not EOF(lngHandle)

         '通过Line Input语句每次读取一行存放在strLine变量中

         Line Input #lngHandle, strLine

       '每次读取的内容循环赋值到strAll字符串变量，

        '由于Line Input去掉了换行符，所以这里补上

        '你也可以通过Chr(13) & Chr(10) 实现换行

        strAll = strAll & strLine & vbCrLf

    Loop

    Close lngHandle    '关闭文件

    '在立即窗口测试得到的内容

Debug.Print strAll

u       （Output）模式实例：将指定文本写入并覆盖TestFile.txt文件内容，用Output写入会自动检测指定文件是否存在，如果不存在则创建该文件。

Dim strFileName As String      '文件名及路径

       Dim lngHandle    As Long        '文件号或称文件句柄

       Dim strWrite       As String      '要写入的文本内容

strWrite = "我是江羽，这是测试文本。"                  '准备要写入的内容

       strFileName = CurrentProject.Path & "\TestFile.txt"  '文件名称及完整路径

       lngHandle = FreeFile()            '取得一个空闲文件号(也称文件句柄)

       Open strFileName For Output As lngHandle      ' 以Output模式打开文件

       '关键字也可以改 Write ,它与 Print 不同在于会自动加上引号

       Print #lngHandle, strWrite     '写入文本

       Close lngHandle                   '关闭文件

u       （Append）模式实例：将指定文本追加写入TestFile.txt文件，用Append写入会自动检测指定文件是否存在，如果不存在则创建该文件。

    Dim strFileName As String     '文件名及路径

    Dim lngHandle    As Long      '文件号或称文件句柄

    Dim strWrite      As String     '要写入的文本内容

strWrite = "我是江羽，这是测试文本。"                  '准备要写入的内容

strFileName = CurrentProject.Path & "\TestFile.txt"  '文件名称及完整路径

    lngHandle = FreeFile()            '取得一个空闲文件号(也称文件句柄)

    Open strFileName For Append As lngHandle    '以 Append模式打开文件

    '关键字也可以改用 Write ,它与 Print 不同在于会自动加上引号

    Print #lngHandle, strWrite     '写入测试文本

    Close lngHandle                   '关闭文件

（2）随机（Random）方式操作文件