VBA与Excel入门系列-09-FSO（下篇）-文件操作

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

系统环境：Windows 10
Excel：2010版本

在操作电脑的过程中，时常伴随着这样的动作：新建文件夹、新建文件、删除文件夹、删除文件等。今天继续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 = -1 Set 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