- 系统环境：Windows 10
- Excel：2010版本
在操作电脑的过程中，时常伴随着这样的动作：新建文件夹、新建文件、删除文件夹、删除文件等 。今天继续FSO，说说对文件的操作【下篇 VBA与Excel入门系列-09-FSO-文件操作】
Part 1：文件操作
- 文件创建 ， strNewFile为新建文本文件的绝对地址
Set objNewFile= objFSO.CreateTextFile(strNewFile, True)- 文件写入(针对文本文件)
Set objNewFile= objFSO.CreateTextFile(strNewFile, True)objNewFile.writeline ("测试1")objNewFile.writeline ("测试2")- 文件删除
objFSO.GetFile(strNewFile).Delete- 文件删除也可以这样写
Kill strNewFile- 文件打开(针对文本文件)
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1Set strNewFileOpen = objFSO.OpenTextFile(strNewFile, ForAppending, TristateTrue)其中Const定义常量 ， 可以直接写成
Set strNewFileOpen = objFSO.OpenTextFile(strNewFile, 8, -1)Part 2：实例
- 创建测试.txt文件，写入测试1，测试2 ， 测试3
Sub test()Set objFSO = CreateObject("Scripting.FileSystemObject")strNewFile = ThisWorkbook.Path & "" & "测试.txt"Set objNewFile = objFSO.CreateTextFile(strNewFile, True)objNewFile.writeline ("测试1")objNewFile.writeline ("测试2")objNewFile.Close'objFSO.GetFile(strNewFile).Delete'Kill strNewFile'Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1'其中TristateTrue 以什么方式打开文件，ASCII（0）或者Unicode（-1）Set strNewFileOpen = objFSO.OpenTextFile(strNewFile, 8, -1)strNewFileOpen.writeline ("测试3")End Sub
图1 代码截图
程序运行结果截图
图2 运行结果
以上，为本次的介绍内容，下回见 。
本文首发于微信公众号：