第48集 VBA文件夹操作
216、 判断文件夹是否存在
Dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹,如果结果为"",则表示不存在。
Dir 函数
返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
Dir[(pathname[, attributes])]
Sub w1()
If Dir(ThisWorkbook.path & “\2011年报表2”, vbDirectory) = “” Then
MsgBox “不存在”
Else
MsgBox “存在”
End If
End Sub
217、 新建文件夹
MkDir语句可以创建一个文件夹
Sub w2()
MkDir ThisWorkbook.path & “\Test”
End Sub
218、 删除文件夹
RmDir语句可以删除一个空文件夹,如果想要使用 RmDir 来删除一个含有文件的目录或文件夹,则会发生错误。在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。
Sub w3()
RmDir ThisWorkbook.path & “\test”
End Sub
219