VBA代码大全015:如何用vba快速地创建多级目录文件夹?

 

在文章如何用vba创建文件夹 中介绍了两种创建文件夹的方法。

 

但是都只能创建一级路径文件夹,形如“c:\1\2,c:\asdf\asdfa\asdfasd”之类的多级路径文件夹没有办法创建。

 

什么叫多级文件夹目录呢?

 

比如我们要用VBA在D盘创建一个文件夹名字叫水星,可以用MkDir 语句,代码如下:

 

 

如果我们想要创建多个文件夹,这多个文件夹互为父子关系,也就是下一级是上一级的子文件夹。

 

比如要在D盘创建一个文件夹名字叫水星,然后在水星文件夹内再创建一个文件夹名字为VBA代码大全,然后再在VBA代码大全文件夹下创建一个文件夹名字叫文件夹专题,这就叫多级文件夹目录。

 

也就是要根据 D:\水星\VBA代码大全\文件夹专题 这样形式的路径创建多个文件夹。

 

这时候也可以用MkDir 语句,代码如下:

 

 

很显然,上面的代码不够灵活,如果要创建5级或者更多层级的文件夹,代码就又要手动修改多次。

 

这里给出一个自定义函数,可以解决任意多级目录的快速创建,代码如下:

 

然后将要创建的多级目录的路径传递给该函数即可。

以后要创建任意的层级文件夹时,只需修改sPath参数的值即可。

       

发表评论