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

互推小编 2024-02-02

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

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

文件对象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