1、1.在excel文件中，要获取本文件保存所在目录文本夹的路径，可通过以下代码来获取：
Sub s()
Dim pth$
pth = ThisWorkbook.Path
MsgBox "本文件的路径为：" & pth
End Sub
2、2.在word文件中，要获取本文件保存所在目录文本夹的路径，可通过以下代码来获取：
Sub s()
Dim pth$
pth = ThisWorkbook.Path
MsgBox "本文件的路径为：" & pth
End Sub
1、很多时候，我们需要用于FileDialog对话框来打开文件夹，那么怎么获取打开的文件夹路径呢？可以使用下面的代码来获取：
Sub test()
Set fileDlg = Application.FileDialog(msoFileDialogFolderPicker)
With fileDlg
If .Show = -1 Then
For Each fld In .SelectedItems
MsgBox fld
Next fld
End If
End With
End Sub
1、操作系统中会默认定义一些系统变量，vbs中可以对这样变量进行读取，从而获取这个系统文件夹目录路径。如 Environ("SYSTEMDRIVE")，可返回系统根目录所在盘符。
2、又比如 Environ("SYSTEMROOT")函数，可返回系统根目录文件夹的路径；
Environ("TEMP")函数，可返回系统默认临时目录文件夹的路径。
3、还比如，Environ("HOMEPATH")函数，可以返回当前登录用户主目录所在路径（不含盘符）。Environ("HOMEDRIVE")函数，可以返回当前登录用户主目录所在盘符。
4、……等等！还有很多其它的系统变量，具体操作大家可以在cmd命令行窗口中，运行“set”命令，来查看当前系统主要有哪些系统变量。然后，大家用Environ函数调用相应变量名即可。
