Excel VBA 获取Windows系统下特殊文件夹路径（比如：桌面，用户）

WScript.Shell对象SpecialFolders属性

WshShell对象的SpecialFolders属性返WshSpecialFolders 对象，该对象是一个特殊文件夹集合，其中包含整套Windows特殊文件夹

Reference: Windows Scripting Host Object Model

'Reference: NULL
Sub SpecialFoldersInfoMethod0()
    Debug.Print "c:" & Environ("HOMEPATH") & "\Desktop"
End Sub

'Reference: Windows Scripting Host Object Model
Private Sub SpecialFoldersInfoMethod1()
    Dim SF As New wshshell
    Debug.Print desk.SpecialFolders("desktop")
    Set SF = Nothing
End Sub

'Reference: Windows Scripting Host Object Model
Private Sub SpecialFoldersInfoMethod2()
    Dim SF As Object
    Set SF = CreateObject("Wscript.shell")
    Debug.Print SF.SpecialFolders("desktop")
    Set SF = Nothing
End Sub

'Reference: Windows Scripting Host Object Model
'Name		  KeyWrod
'------------------------------------------------
'公共桌面： 	: ("AllUsersDesktop")
'公共程式： 	: ("AllUsersStartMenu")
'公共程序： 	: ("AllUsersPrograms")
'公共启动： 	: ("AllUsersStartup")
'桌面：    	: ("Desktop")
'收藏：    	: ("Favorites")
'字体：    	: ("Fonts")
'我的文档： 	: ("MyDocuments")
'网络：    	: ("NetHood")
'打印机：   	: ("PrintHood")
'程序：    	: ("Programs")
'最近： 		: ("Recent")
'发给： 		: ("SendTo")
'开始菜单： 	: ("StartMenu")
'启动： 		: ("Startup")
'模板：		: ("Templates")
'应用程序数据	: ("AppData")
'------------------------------------------------
Private Function SpecialFoldersInfoMethod3(iSpecialFolder As String) As String
    Dim SF As Object
    Set SF = CreateObject("Wscript.shell").SpecialFolders
    Debug.Print SF(iSpecialFolder)
    Set SF = Nothing
End Function

VS2010 VB

'app.path是VB6中的用法.
'vb2010属于VB.Net，VB.Net中使用如下方法:
'Application.StartupPath '获取当前程序路径,如果你的程序在C:\App\,结果为 C:\App
'AppDomain.CurrentDomain.SetupInformation.ApplicationBase '获取当前程序路径,如果你的程序在C:\App\,结果为 C:\App\
'后者比前者的结果会多一个"\"

System.Environment.CurrentDirectory;