vba 文件夹操作

1、搜索路径下文件夹

Sub folder_query()
  Dim dr$
  Const pt = "c:\"
  dr = Dir(pt, vbDirectory)  '搜索文件夹
  Do While dr <> ""
    If GetAttr(pt & dr) = vbDirectory And UCase(Left(dr, 1)) = "A" Then Debug.Print dr
    dr = Dir
  Loop
End Sub

2、取得父类文件夹名称
 MsgBox Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))

InStrRev 反向搜索 \ 字符  'InStr()正向，返回特殊字符在字符串位置（左起第几个）

3 、创建文件夹

Sub creat_folder()
    ipath = "c:\temp\abc"
    On Error Resume Next
    Application.DisplayAlerts = False
    MkDir ipath
    Set wk = Workbooks.Add         ’新建文件
    wk.SaveAs ipath & "\bac.xls"　　　
    wk.Close
    Application.DisplayAlerts = True
    On Error GoTo 0
End Sub