51、一行代码搞定文件夹：新建、删除、改名全操作（VBA进阶）

1、数组、字典、正则，特别是正则，真的很难。不愧是进阶课程，难度比入门课程高几个等级。

今天我们学个简单的，而且使用频率还不少。就是新建文件夹、文件夹改名、删除文件夹三种方法。

难度不大，但使用场景还是挺广的。例如一个简易信息录入系统，其中有一个功能《信息备份》，这时候可能需要把信息存放到文件夹中，这就需要新建一个文件夹了。

2、新建文件夹代码

Sub 创建文件夹()

MkDir ThisWorkbook.Path & “旧文件夹”

‘MkDir:是计算机系统命令，用于新建文件夹。Thisworkbook.path:本程序同路径。旧文件夹：文件夹名称

End Sub

‘是不是很简单，不用燃烧你的CPU。

3、修改文件夹名称代码

Sub 文件夹改名()

Dim oldname$

Dim newname$

oldname = ThisWorkbook.Path & “旧文件夹”

newname = ThisWorkbook.Path & “新文件夹”

Name oldname As newname

‘修改名称

End Sub

‘还是一个代码搞掂，轻松加愉快。

4、删除文件夹代码

Sub 删除文件夹()

RmDir ThisWorkbook.Path & “新文件夹”

‘删除本程序同路径下，名称为“新文件夹”的文件夹。

End Sub

*这个注意，它不能删除有文件的文件夹，只能删除空文件夹；

你学会了吗？不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。