欢迎大家来到IT世界,在知识的湖畔探索吧!

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

在操作电脑的过程中，时常伴随着这样的动作：新建文件夹、新建文件、删除文件夹、删除文件等。那么怎么让VBA实现，隆重介绍FileSystemObject，简称FSO

Part 1：FSO简介

• FSO，文件系统对象，主要功能就是对文件或者文件夹的一系列操作。默认情况下VBA中无法使用，需要先进行创建（这里介绍后期绑定的方法）
• 作为一个对象，自然具有对象两大特性：属性、方法
• 属性可理解为对象的静态特性，类似于对象.Name=”新名字”
• 方法可理解为对象的动态特性，类似于创建文件夹这一动作

后期绑定

Set objFSO = CreateObject("Scripting.FileSystemObject")

欢迎大家来到IT世界,在知识的湖畔探索吧!

Part 2：文件夹操作

• 文件夹删除，其中NewFolderName为文件夹绝对路径

欢迎大家来到IT世界,在知识的湖畔探索吧!objFSO.DeleteFolder (NewFolderName)

• 文件夹新建

Set myfolder = objFSO.createfolder(NewFolderName)

Part 3：实例

• 检查当前文件夹是否存在测试文件夹，存在则删除，并新建文件夹
• 该功能用于文件夹初始化

欢迎大家来到IT世界,在知识的湖畔探索吧!Sub test()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    NewFolderName = ThisWorkbook.Path & "\" & "测试"
    If objFSO.FolderExists(NewFolderName) Then
        objFSO.DeleteFolder (NewFolderName)
        Set myfolder = objFSO.createfolder(NewFolderName)
    Else
        Set myfolder = objFSO.createfolder(NewFolderName)
    End If
End Sub

图1 新建文件夹前

图2 新建文件夹

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条