前景提要

之前我们在上一系列也是学了一些关于VBA创建文件夹的相关操作，我们是通过dir()方法来实现的，如果是简单的文件夹的创建的话，我们完全可以通过这个方法，但是在进行VBA代码执行的过程中，如果涉及文件夹的其他的更加深入操作，比方说文件夹的删除，移动等功能，dir()就望尘莫及了，所以这一系列我们继续深入研究下vba和文件夹的操作，我们今天用更加强大的方式来操作，那就是FSO

思路

FSO,并不属于VBA本身就有的功能，他需要调用其他的资源才可以使用的，无法在代码中直接使用，我们可以通过两种方式来进行调用，一种就是前期引用，如下

这种方法叫做前期引用，有好处也有坏处，好处就是初学者通过这个方法绑定之后，在后续写代码的过程中，就会有相关的代码提示，不用去刻意记那么多的代码和方法，坏处呢？那就是只有你的电脑能用，如果给其他人用的话，他的电脑可能就会用不了，因为其他人的电脑可能没有装过这个东西，所以为了通用性，我们尽量选择在代码中采用后期声明引用的方法，如何用？看下面的代码!

成功的引用FSO之后，我们就可以进行文件夹的创建了，我们在创建文件夹的时候，如果碰到重名文件夹是不允许创建的，这是window系统自身就存在的规定，我们要遵守，所以我们在创建文件夹之前需要先判断文件夹是否存在，存在就可以创建，不存在就不能够创建，好，有了方法，我们来看看代码

代码区

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

效果如图：

我们成功的在当前文件所在的地方创建了一个名为测试的文件夹。

代码解析

首先我们先通过后期绑定的方式申明FSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

然后获得当前文件所在的位置，加上测试两个字，构成新的路径。

path在VBA中，主要是获得文件的路径的，这里的路径所在文件夹位置的上一级，比方说“D:/新建文件夹/测试.xlsx”他的path就是““D:/新建文件夹”并不是完整的路径，这点大家要注意，这里我们回到代码中去实操下更清楚，我的文件是放在桌面的，然后调试

我们可以看到路径出来了，但是并不是完整的路径，是上一级的路径，这点大家要留意使用。

然后进入今天的重点，FSO的运用了。

首先我们要判断我们要创建的文件夹在当前桌面是否存在同名的文件夹，大家都知道同名的话，是无法创建成功的，所以我们要先判断

objFSO.FolderExists(NewFolderName)

就是这样的效果，语法结果就是FolderExists(NewFolderName)，文件夹是否存在，如果存在呢，肯定弹窗报错无法创建，换一个名字了，但是我们这里为了程序运行的顺利，我们将原来存在的文件夹删除，那么删除文件件怎么操作呢，DeleteFolder (NewFolderName)，就是删除文件夹的操作，没有了同名文件夹就可以创建文件夹了，这就可以用FSO创建文件夹了。这里要注意，在创建文件夹的时候，前面要有一个set。当然啦，如果同名文件不存在嘛，自然更简单啦，直接调用创建方法直接创建就好啦

Set myfolder = objFSO.createfolder(NewFolderName)

完整代码加注释

Sub test()

Set objFSO = CreateObject("Scripting.FileSystemObject") '申明一个ADO,固定搭配

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

延伸复习一下，如果用我们之前学习过的mkdir()是否可以实现呢？尝试下

举报/反馈