[已解决]如何用VBA在当前目录下依次创建指定文件夹

事后诸葛亮

[url=] 在当前目录下依次创建指定文件夹.rar (3.73 KB, 下载次数: 118)

2013-6-26 17:48 上传

点击文件名下载附件 [/url]

	A列	B列
1	文件夹名称	备注说明
2	文件汇总	必须从A2开始依次往下判断是否存在该文件夹，如果不存在，则进行创建。
3	文件汇总\A单位报表
4	子文件夹2\文件汇总
5	系统报表\子文件夹1
6	系统报表\子文件夹\子文件夹2

for i = 2 to 6
    If Dir(ThisWorkbook.path & "\" & range("A" & i), vbDirectory) = "" Then'是判断是否存放该文件夹。
      MkDir ThisWorkbook.path & "\" & range("A" & i)'创建子文件夹。
next i

存在的问题是 如果 在A5单元格时，提前没有创建“系统报表”文件夹时，无法直接创建“子文件夹1”。代码会直接视为创建“系统报表\子文件夹1”就会出错。
所以这时候需要 先创建上级子文件夹“系统报表”，然后再去创建下级子文件夹“子文件夹1”。
如果写代码 ？
貌似要用到循环吧？从前面依次查找 “\”，来提取第一个子文件夹 判断 并创建，依次是第二级，然后是第三级。。谢谢了。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-29 10:19

1. Sub test()
   
2.     Dim arr, arrTemp
   
3.     Dim strPath As String
   
4.     Dim strTemp
   
5.     Dim i As Long, j As Long
   
6.     On Error Resume Next
   
7.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
8.     arr = Sheet1.Range("a1").CurrentRegion
   
9.     For i = LBound(arr) + 1 To UBound(arr)
   
10.         strTemp = strPath
    
11.         arrTemp = Split(arr(i, 1), "")
    
12.         For j = LBound(arrTemp) To UBound(arrTemp)
    
13.             strTemp = strTemp & arrTemp(j) & Application.PathSeparator
    
14.             MkDir strTemp
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

那就分级创建吧。
其实不用检测，直接用MKDIR创建就成了，用上ON ERROR RESUME NEXT，这是偷懒的方法。

事后诸葛亮

hwc2ycy 发表于 2013-6-26 18:21
那就分级创建吧。
其实不用检测，直接用MKDIR创建就成了，用上ON ERROR RESUME NEXT，这是偷懒的方法。

那就漏 创建了呀

hwc2ycy

我说是的顺着\开始，一级一级来创建，这样就不会报错了。
比如C:\A\B\C
直接运行三条创建目录的语句
MKDIR C:\A
MKDIR C:\A\B
MKDIR C:\A\B\C

事后诸葛亮

hwc2ycy 发表于 2013-6-26 19:43
我说是的顺着\开始，一级一级来创建，这样就不会报错了。
比如C:\A\B\C
直接运行三条创建目录的语句

问题 就是我不知道 A 是什么 B 是什么 C 是什么
需要判断呀、。
而且出现的顺序也不一定一样。

hwc2ycy

=会来做，现在在听课了。

hwc2ycy

1. Sub test()
   
2.     Dim arr, arrTemp
   
3.     Dim strPath As String
   
4.     Dim strTemp
   
5.     Dim i As Long, j As Long
   
6.     On Error Resume Next
   
7.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
8.     arr = Sheet1.Range("a1").CurrentRegion
   
9.     For i = LBound(arr) + 1 To UBound(arr)
   
10.         strTemp = strPath
    
11.         arrTemp = Split(arr(i, 1), "")
    
12.         For j = LBound(arrTemp) To UBound(arrTemp)
    
13.             strTemp = strTemp & arrTemp(j) & Application.PathSeparator
    
14.             MkDir strTemp
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码