excel表格_excel函数公式大全_execl从入门到精通
使用FSO对象操作文件夹2024-05-14 00:18:15
大家好，我们今日讲解“VBA信息获取与处理”教程中第十八个专题“FSO对象对文件及文件夹的处理”的第一节“使用FSO对象操作文件夹”，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的程序文件。
大家好，我们开始一个新专题的学习，这个专题中我们将讲解利用FSO（FileSystemObject）对象来完成文件及文件的一些操作。FSO对象我们一般利用下面的语句进行引用并赋值给一个对象变量：
Set objFso = CreateObject("Scripting.FileSystemObject")
然后就可以利用objFso这个对象变量的属性和方法来完成我们一系列的操作了。我们将一一展示给大家。
第一节 使用FSO对象操作文件夹
对于文件夹的操作，有创建、复制、移动、删除等操作，我们这讲就介绍给朋友们这些操作的具体代码及应用。
1 FSO对象操作文件夹的基本语句
1）CreateFolder方法，创建一个新的文件夹
语法：object.CreateFolder (foldername)
参数：
object 必需，是FileSystemObject对象的名称。
Foldername必需，标识要创建的文件夹的字符串表达式。
备注：如果指定文件夹已存在，则将出错。
2）GetFolder方法，返回与指定路径中的文件夹对应的folder对象。
语法：object.GetFolder (folderspec)
参数：
object必需，是FileSystemObject的名称。
folderspec必需，folderspec是特定文件夹的路径（绝对或相对）
备注：如果指定的文件夹不存在，将发生错误。
3）SubFolders属性，返回由指定文件夹中包含的所有文件夹组成的folders集合, 包括具有隐藏和系统文件属性设置的文件夹。
语法：object.SubFolders
参数：
object始终是Folder对象。
4）AddFolders方法，向Folders集合中添加一个新文件夹。
语法：object.AddfolderName
参数：
object 必需，是 Folders 集合的名称。
folderName必需，要添加的新 Folder 的名称
备注：如果folderName已存在，则发生错误
5）CopyFolder方法，将文件夹从一个位置递归复制到另一个位置。
语法：object.CopyFolder source, destination, [ overwrite ]
参数：
object 必需，始终是FileSystemObject的名称。
source 必需，要复制的一个或多个文件夹的字符串文件夹规范（可包含通配符）。
Destination必需，要从其复制文件夹和子文件夹的 source 的字符串目标。不允许使用通配符。
[ overwrite ]可选，指示是否覆盖现有文件夹的 Boolean 值。如果为 True，则覆盖文件；如果为 False，则不覆盖。默认为 True。
备注：通配符只能在 source 参数的最后路径组件中使用。不能用于中间字符。
提示：如果source包含通配符, 或destination 以路径分隔符(**)结尾, 则destination是要在其中复制匹配的文件夹和子文件夹的现有文件夹。假设 destination 为要创建文件夹的名称。在这两种情况下, 复制单个文件夹时可能会发生以下四种情况:
如果 destination 不存在，则复制 source 文件夹及其所有内容。这是通常情况。
如果 destination 是现有文件，则发生错误。
如果destination是一个目录, 则尝试复制该文件夹及其所有内容。如果destination中已存在包含在 source中的文件, 则如果overwrite为False, 则会发生错误。否则, 它将尝试通过现有文件复制文件。
如果 destination 为只读目录并且 overwrite 为 False 时，则尝试将现有只读文件复制到该目录将发生错误。
如果使用通配符的 source 不与任何文件夹匹配，也将发生错误。
CopyFolder方法在遇到第一个错误时即停止。不会尝试回滚到错误发生前进行的更改。
6)MoveFolder方法,将一个或多个文件夹从一个位置移动到另一个位置
语法：object.MoveFolder (source, destination)
参数：
object 必需，是FileSystemObject的名称。
source 必需，要移动的一个或多个文件夹的路径。 source 参数字符串只能在最后一个路径部分中包含通配符。
destination必需，要将一个或多个文件夹移至的路径。 destination 参数不能包含通配符。
备注：如果source包含通配符或destination以路径分隔符 (**) 结束, 则假定destination指定要在其中移动匹配文件的现有文件夹。否则，假定 destination 是要创建的目标文件夹的名称。无论是哪种情况，移动单个文件夹时均会发生三件事情：
如果 destination 不存在，文件夹会被移动。这是通常情况。
如果 destination 是现有文件，则会出现错误。
如果 destination 是一个目录，则会出现错误。
如果在 source 中使用的通配符不与任何文件夹匹配，也会出现错误。
MoveFolder方法在遇到第一个错误时停止。不会尝试回滚在错误发生前进行的任何更改。
注意：只有操作系统支持时，此方法才允许在卷之间移动文件夹。
7）DeleteFolder方法删除指定文件夹及其内容。
语法：object.DeleteFolderfolderspec, [ force ]
参数：
object 必需。始终是FileSystemObject的名称。
folderspec 必需。要删除的文件夹的名称。folderspec可以在最后的路径部分中包含通配符。
force 可选。布尔值，如果删除具有只读属性集的文件夹，则为True；否则为 False（默认值）。
备注：DeleteFolder方法不区分有无内容的文件夹。不管指定文件夹有无内容都会被删除。如果未发现匹配文件夹，将发生错误。DeleteFolder方法在遇到的第一个错误处停止。在发生错误之前，不会尝试回滚或撤消任何已进行的更改。
2 FSO对象操作文件夹的实际代码
为了很好地利用这种文件夹的操作语句我给出下面的实测代码：
Sub mynz() '使用FSO对象操作文件夹
Dim objFso As Object
Dim objFolder As Object
Dim strPath As String
strPath = ThisWorkbook.Path&Application.PathSeparator
Set objFso = CreateObject("Scripting.FileSystemObject")
'判断文件夹是否存在
If objFso.FolderExists(strPath& "018Temp") = True Then
'CreateFolder方法创建一个新的文件夹“018测试”
objFso.CreateFolderstrPath& "018Temp\018测试"
'GetFolder方法返回与指定路径中的文件夹对应的folder对象。
Set objFolder = objFso.GetFolder(strPath& "018Temp\018测试")
'SubFolders返回由指定文件夹中包含的所有文件夹组成的folders集合, 包括具有隐藏和系统文件属性设置的文件夹。
'ADD 添加新文件夹
objFolder.SubFolders.Add "018测试2"
'CopyFolder方法将文件夹从一个位置递归复制到另一个位置
objFso.CopyFolderstrPath& "018Temp\018测试\018测试2", strPath& "018TempA"
'MoveFolder方法将一个或多个文件夹从一个位置移动到另一个位置。
objFso.MoveFolderstrPath& "018Temp\018测试\018测试2", strPath& "018TempB"
objFolder.Delete
'DeleteFolder方法删除指定文件夹及其内容。
objFso.DeleteFolderstrPath& "018*"
'再次建立018TEMP测试文件夹
objFso.CreateFolderstrPath& "018Temp"
End If
Set objFolder = Nothing
Set objFso = Nothing
End Sub
代码截图：
代码的讲解：（略，基本操作及注释中已经有了）
3 FSO对象操作文件夹的代码执行效果
以上的代码在执行完成后，没有任何的变化，我从中间做几个截图说明：
当文件夹018测试2移动前：当移动发生后：其中的道理大家可以认真领会。
本节知识点回向：
① 本例中利用FSO操作文件夹有哪些方法？
② 在删除的语句中第一次删除了什么文件夹？
本讲代码参考文件：018工作表.xlsm
积木编程的思路内涵：
在我的系列书籍中一直在强调“搭积木”的编程思路，这也是学习利用VBA的主要方法，特别是职场人员，更是要采用这种方案。其主要的内涵：
1代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码，一定要拷贝，从你的积木库中去拷贝，然后修正代码，把时间利用到高效的思考上。
2 建立自己的“积木库”。平时在学习过程中，把自己认为有用的代码放在一起，多积累，在用到的时候，可以随时拿来。你的积木库资料越多，你做程序的思路就会越广。VBA的应用界定及学习教程：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程，目前教程均通过32位和64位两种OFFICE系统测试。
第一套：VBA代码解决方案是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。
第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
上述教程的学习顺序：1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库，供读者使用，如需要可以WeChat: NZ9668学习VBA是个过程，也需要经历一种枯燥的感觉
“众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山”。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。
“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。学习时微而无声，利用时则巨则汹涌。“路漫漫其修远兮，吾将上下而求索”
每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：
浮云掠过，暗语无声，
唯有清风，惊了梦中啼莺。
望星，疏移北斗，
奈将往事雁同行。
阡陌人，昏灯明暗，
忍顾长亭。
多少VBA人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享我多年工作实际经验的成果，随喜这些有用的东西，给确实需要利用VBA的同路人。回向学习利用VBA的历历往事，不胜感慨，谨以这些文字以纪念，
分享成果，随喜正能量
标签: excel文件名称或路径不存在