他山之石——VBA文件夹操作

'1 判断文件夹是否存在
   'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。
  Sub w1()
    If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = "" Then
       MsgBox "不存在"
    Else
       MsgBox "存在"
    End If
  End Sub
  
'2 新建文件夹
   'Mikdir语句可以创建一个文件夹
    Sub w2()
      MkDir ThisWorkbook.path & "\Test"
    End Sub
   
'3 删除文件夹
   
   'RmDir语句可以删除一个文件夹，如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。
   '在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
   
    Sub w3()
      RmDir ThisWorkbook.path & "\test"
    End Sub
'4 文件夹重命名
    Sub w4()
      Name ThisWorkbook.path & "\test" As ThisWorkbook.path & "\test2"
    End Sub
     
'5 文件夹移动
     '同样使用name方法，可以达到移动的效果，而且连文件夹的文件一起移动
    
    Sub w5()
      Name ThisWorkbook.path & "\test2" As ThisWorkbook.path & "\2011年报表\test100"
    End Sub
    
'6 文件夹复制
        Sub CopyFile_fso()
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFolder ThisWorkbook.path & "\测试新建文件夹", ThisWorkbook.path & "\2011年报表\"
        Set fso = Nothing
        End Sub
'7 打开文件夹
   '使用shell函数桌面管理程序打开文件夹
    Sub w7()
      Shell "explorer.exe " & ThisWorkbook.path & "\2011年报表", 1
    End Sub