本文介绍了VBA中处理文件夹的方法,包括使用Dir函数判断文件夹是否存在,利用MkDir和RmDir创建和删除文件夹,使用Name进行重命名和移动,以及使用FileSystemObject进行文件夹复制、移动、删除等操作。
一、解释:dir()
在VBA中,Dir函数被用于返回匹配指定文件名模式的第一个文件或目录的名称。下面是Dir函数的语法和使用方法:
Dir([path], [attributes])
参数
path(可选):要检索的路径字符串。如果省略,将从当前目录开始搜索。
attributes(可选):指定要搜索的文件类型。默认包括普通文件和文件夹。可以通过组合以下常量来定义:
常数 | 值 | 描述 |
vbNormal | 0 | (缺省)指定没有属性的文件 |
vbReadOnly | 1 | 指定无属性的只读文件 |
vbHidden | 2 | 指定无属性的隐藏文件 |
VbSystem | 4 | 指定无属性的系统文件 |
vbVolume | 8 | 指定卷标文件;如果指定了其它属性,则忽略 |
vbVolumevbDirectory | 指定无属性文件及其路径和文件夹 |
注意 这些常数是由 VBA 所指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的数值。
二、判断文件夹是否存在
dir()函数的第二个参数是vbdirectory时,可以返回路径下的指定文件和文件夹,如果结果为"",则表示不存在。
Sub w1()
If Dir(ThisWorkbook.path & "\年报表2", vbDirectory) = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If
End Sub
原文链接:
https://blog.csdn.net/pgymeitianjinbu/article/details/