vba获取当前文件路径代码（vba当前文件夹相对路径寻找）

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

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

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