Windows 特殊文件夾，包括 "Desktop" 文件夾、"MyDocuments" 文件夾等，如果我們要在VBA中用到這些文件夾，可以用下列代碼來(lái)獲取這些特殊文件夾的路徑。
Option Explicit
Sub GetMyDocumentsPath()
Dim WSHShell As Object
Set WSHShell = CreateObject("Wscript. Shell") ‘請(qǐng)去掉Shell前的空格
MsgBox "MyDocuments文件夾位于：" & WSHShell.SpecialFolders("MyDocuments")
Set WSHShell = Nothing
End Sub
說(shuō)明：上述代碼獲取的是“MyDocuments”文件夾的路徑，如果要獲取其他特殊文件夾路徑，可以將代碼中的“MyDocuments”更換為下面的文件夾名稱(chēng)。如果指定的文件夾不存在，“SpecialFolders”屬性返回空值。
這些特殊文件夾有：
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
