「Excel_VBA」功能模块_文件及文件夹_01_

这个系列集锦一些常用得功能模块，在一些项目中会穿插应用

今天讲讲与文件夹相关得一些操作

主要是使用fso及VBA自带得一些函数

1. FSO引入

Set fso = CreateObject("scripting.FileSystemObject")Part 2：常用功能

If fso.FolderExists(NewFolderName) Then Set myfolder = fso.Getfolder(NewFolderName)Else Set myfolder = fso.createfolder(NewFolderName)End If

If Dir(CurrentDir & NewFolder, vbDirectory) <> "" Then MsgBox "文件夹已存在"End If

CurrentDir = ThisWorkbook.Path & "\"NewFolder = "test"MkDir CurrentDir & NewFolder

fso.DeleteFolder (NewFolderName)

RmDir CurrentDir & NewFolder

Name CurrentDir & NewFolder As CurrentDir & "test6"

fso.CopyFolder CurrentDir & "test", CurrentDir & "test8"

For Each Wenjian In fso.GetFolder(CurrentDir).Files WenjianName = Wenjian.NameNext

For Each Wenjianjia In fso.GetFolder(CurrentDir).SubFolders WenjianjiaName = Wenjianjia.NameNext

以上，为本次得介绍内容，下回见。

感谢首次于：Excel高效办公之VBA。排版和细节略作修改，发于头条