企业官网建设流程全解析

开传奇怎么建设自己的网站,重庆装修网站建设,网络架构的基本特征是什么,光电工程东莞网站建设FSO#xff08;File System Object#xff0c;文件系统对象#xff09;是微软提供的一个“工具箱”#xff0c;它能让我们的VBA程序像手动操作电脑一样#xff0c;去创建、删除、移动、复制文件和文件夹#xff0c;还能查看文件信息#xff08;比如名字、大小、修改日期…FSOFile System Object文件系统对象是微软提供的一个“工具箱”它能让我们的VBA程序像手动操作电脑一样去创建、删除、移动、复制文件和文件夹还能查看文件信息比如名字、大小、修改日期和检查硬盘空间因为它功能强大内容也比较多所以我会分成几期来详细讲解本期重点介绍如何通过FSO操作文件夹创建CreateFolder方法用于创建一个新的文件夹其语法object.CreateFolder(foldername)一个简单的应用在路径D:\常用文件下创建一个名为tmp的文件夹Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)fso.CreateFolder (D:\常用文件\tmp)以上代码首先声明了一个名为 fso 的变量其类型为 Object接着使用 CreateObject 函数创建了一个“Scripting.FileSystemObject”对象的实例并将其赋值给之前声明的 fso 变量最后调用了 fso 对象的 CreateFolder 方法创建文件夹但是一般为了避免因重复创建而导致的错误在创建文件夹前我们通常会先用 FolderExists 方法检查是否存在因此完整的代码为Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)If Not fso.FolderExists(D:\常用文件\tmp) Thenfso.CreateFolder (D:\常用文件\tmp)ElseMsgBox 文件夹已存在End IfVBA内置的MkDir命令只能创建单级文件夹且父文件夹必须存在。同样FSO的CreateFolder方法本身也不能直接创建多级目录因此创建任意多层文件夹需要额外的逻辑关于创建多层文件夹其实基于目前的编程技能相信大家一定有自己的创建逻辑。当然如果没有头绪也不着急后续也会分享相关的内容删除DeleteFolder方法用于在文件系统中永久移除指定路径的文件夹及其所有子项包括子文件夹和文件它是一个无差别删除方法操作范围涵盖空文件夹和非空文件夹的结构清理换句话说DeleteFolder方法会自动递归遍历并删除指定文件夹内的所有层级子目录及文件无需我们编写额外的递归逻辑代码。这意味着无论文件夹结构多深、内容多少一次调用即可完成清理重要提醒DeleteFolder 方法是永久性删除不会将文件移入回收站。一旦执行数据无法通过常规方法恢复因此在使用时一定要谨慎使用方法一删除指定的文件夹Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)Dim folderPath As StringfolderPath D:\常用文件\tmp 在执行删除前先检查文件夹是否存在If fso.FolderExists(folderPath) Thenfso.DeleteFolder folderPath, TrueMsgBox 文件夹删除成功ElseMsgBox 指定的文件夹不存在。End IfSet fso Nothing由于DeleteFolder方法的完整语法是object.DeleteFolder(folderspec, [force])第二个参数 force 是可选的布尔值默认值为 False。这意味着如果文件夹或其内容被设置为只读删除操作将失败因此要强制删除包含只读文件的文件夹必须将 force 参数显式设置为 True使用方法二使用通配符(*)批量删除fso.DeleteFolder D:\常用文件\Backup_*, True需要注意通配符仅允许在路径的最后一级目录名中使用以上代码将匹配所有以“Backup_”开头的子文件夹并将其全部删除复制与移动3.1复制CopyFolder方法是FileSystemObject对象提供的编程接口用于将指定源文件夹及其内部所有内容完整地复制到目标位置。与简单的文件复制不同此方法会自动处理文件夹的层级结构实现“递归复制”即复制源文件夹本身以及其包含的所有子文件夹和文件语法如下object.CopyFolder source, destination[, overwrite]前两个参数都好理解重点看第3个参数overwrite为可选参数布尔值Boolean指示当目标位置已存在同名文件夹或文件时是否覆盖。默认值为True覆盖。设置为False时如果遇到已存在的项目操作将因错误而中断例如将D:\常用文件\SourceFolder复制到D:\Backups\CopiedFolder下如果CopiedFolder存在则覆盖Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)Dim sourcePath As String, destPath As StringsourcePath D:\常用文件\SourceFolderdestPath D:\Backups\CopiedFolder 执行复制True表示覆盖已存在的文件fso.CopyFolder sourcePath, destPath, True当然sourcePath也可以使用通配符*或者如sourcePath D:\常用文件\Backup_*用以实现批量复制多个符合模式的文件夹但是destPath不可以使用通配符这一点也是很好理解的不再赘述3.2 移动MoveFolder方法用于将一个或多个文件夹从一个位置移动到另一个位置其语法为object.MoveFolder source, destination其中source要移动的一个或多个文件夹的路径字符串。关键点路径字符串只能在最后一个部分即文件夹名部分包含通配符如 * 或 ?用于批量移动匹配的文件夹destination文件夹要移动到的目标路径。重要限制此参数不能包含通配符关于通配符的使用与CopyFolder方法是一致的可以参考借鉴CopyFolder方法例如以下两行代码destination参数结尾不同一个有反斜线一个没有这在执行过程中有何不同呢代码1fso.MoveFolder D:\常用文件\SourceFolder, D:\Backups\CopiedFolder代码2fso.MoveFolder D:\常用文件\SourceFolder, D:\Backups\CopiedFolder\代码1中destination 参数结尾无分隔符\系统会认为 destination 是要创建的新文件夹的名称移动操作会以此名称创建目标文件夹。假如此时目标文件CopiedFolder存在则执行会报错了而代码2中destination 参数以路径分隔符\结尾那么系统会认为 destination 是一个已经存在的文件夹匹配的源文件夹将被移动到这个目标文件夹内因此初次使用时一定要留心别把自己整郁闷了遍历GetFolder方法会返回一个对应的Folder对象实例通过 GetFolder 获取Folder对象后可访问其 Files 集合获取所有文件和 SubFolders 集合获取所有子文件夹进行遍历例如获取Folder对象并访问属性获取Folder对象后可以访问其丰富的属性来获取文件夹的详细信息Dim fso As Object, fld As ObjectSet fso CreateObject(Scripting.FileSystemObject)Dim folderPath As StringfolderPath D:\常用文件 使用GetFolder方法获取Folder对象Set fld fso.GetFolder(folderPath) 访问Folder对象的属性MsgBox 文件夹名称: fld.Name vbCrLf _完整路径: fld.path vbCrLf _父文件夹: fld.ParentFolder vbCrLf _创建日期: fld.DateCreated vbCrLf _最后修改日期: fld.DateLastModified vbCrLf _最后访问日期: fld.DateLastAccessed vbCrLf _文件夹类型: fld.Type vbCrLf _是否为根目录: fld.IsRootFolder, _vbInformation, 文件夹信息执行后结果显示如下建议由于GetFolder方法在路径无效时会抛出错误因此在实际使用中强烈建议先使用FolderExists方法验证路径的有效性当然GetFolder方法应用不仅仅以上内容还有更高级用法后续也会慢慢分享给大家结束语最后记得使用完fso后要用Set fso Nothing释放掉哈养成好习惯好了今天的分享就到这里了咱们下期继续公众号同时也在不间断地分享免费的编程案例如果想学习更多的编程知识无论是用来提升自动化办公效率还是想提升自我都可以关注我的公众号“努力鸭是黑色的”解锁更多的VBA技能