VBA代码，如何获取文件夹信息，文件夹管理就是这么容易

yund56 2025-05-23 22:17 32 浏览

文件管理当中，最重要的一个方面就是对文件夹的操作。

本文将介绍一下，如何进行文件夹的操作。

文件对象Folder 对象

功能	提供对文件夹所有属性的访问权限
语法	Scripting.FileSystemObject Set f = fs.GetFolder("文件夹路径")
集合	说明
Files	返回指定文件夹中所有文件的集合。
文件夹	Folder 对象中包含的所有 Folder 对象的集合。
方法	说明
Add	将新 Folder 添加到 Folders 集合中。
Copy	将指定的文件夹从一个位置复制到另一个位置。
CreateTextFile	在指定的文件夹中创建一个新文本文件，并返回一个 TextStream 对象来访问该文件。
Delete	删除指定的文件夹。
Move	将指定的文件夹从一个位置移到另一个位置。
属性	说明
Attributes	设置或返回指定文件夹的属性。
DateCreated	返回创建指定文件夹的日期和时间。
DateLastAccessed	返回上次访问指定文件夹的日期和时间。
DateLastModified	返回上次修改指定文件夹的日期和时间。
Drive	返回指定文件夹所在的驱动器的驱动器号。
Files	返回一个 Files 集合，该集合由指定文件夹中包含的所有 File 对象组成，包括那些设置了隐藏和系统文件属性的对象。
IsRootFolder	如果文件夹是根文件夹，则返回 True ;如果没有，则返回 False 。
Name	设置或返回指定文件夹的名称。
ParentFolder	返回指定文件夹的父文件夹。
Path	返回指定文件夹的路径。
ShortName	返回指定文件夹的短名称 (8.3 命名约定) 。
ShortPath	返回指定文件夹的短路径 (8.3 命名约定) 。
Size	返回指定文件夹的大小。
Folders	返回由指定文件夹中包含的所有文件夹组成的 Folders 集合，包括设置了隐藏属性和系统文件属性的文件夹。
Type	返回指定文件夹的类型。

如上示例，提取当前目录下的所有文件夹。

代码

Sub 提取文件夹()
On Error Resume Next
Dim fs As Object, ts As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.getfolder(ThisWorkbook.Path)
Dim lobj As Object, cobj As Object
Set cobj = ThisWorkbook.Worksheets(2).ComboBox1
Set lobj = ThisWorkbook.Worksheets(2).ListBox1
lobj.Clear
cobj.Clear
Dim fi As Object
For Each fi In ts.subfolders
    lobj.AddItem fi.Name
Next fi
cobj.AddItem fs.getdrive(fs.getdrivename(ThisWorkbook.Path))
Set fs = Nothing
Set ts = Nothing
Set lobj = Nothing
Set cobj = Nothing
End Sub

文件夹管理应用是一个十分有用的内容，对于磁盘当中的文件整理必须要掌握的一个关键。

根据上面的属性的方法，可以实现所有文件夹相关的操作功能。

END

VBA代码，如何获取文件夹信息，文件夹管理就是这么容易

相关推荐

django留言板_留言板html好看的模板

你还在手动筛选吗?filter函数才是多条件筛选的yyds!

一次分享给你29个PHP基础常用类助力你快速提升

一篇文章轻松掌握VLookup、XLookup与Filter函数

软件工程培训，选择线上还是线下呢?

连南举办2024年软件正版化工作联席会议暨正版软件培训班

初学ThinkPHP(一):用TP6+LayUI实现数据表格

新函数FILTER函数_filter函数的作用

营商在上海_营商上海数字科技有限公司

Excel筛选也智能?一个FILTER函数就搞定!