WshShell对象的SpecialFolders属性返WshSpecialFolders 对象，该对象是一个特殊文件夹集合，其中包含整套Windows特殊文件夹
Sub SpecialFoldersInfo()
Dim sf As Object
Set sf = CreateObject("Wscript.shell").SpecialFolders
Debug.Print "公共桌面： " &
sf("AllUsersDesktop")
Debug.Print "公共程式： " &
sf("AllUsersStartMenu")
Debug.Print "公共程序： " &
sf("AllUsersPrograms")
Debug.Print "公共启动： " &
sf("AllUsersStartup")
Debug.Print "桌面： " &
sf("Desktop")
Debug.Print "收藏： " &
sf("Favorites")
Debug.Print "字体： " &
sf("Fonts")
Debug.Print "我的文档： " &
sf("MyDocuments")
Debug.Print "网络： " &
sf("NetHood")
Debug.Print "打印机： " &
sf("PrintHood")
Debug.Print "程序： " &
sf("Programs")
Debug.Print "最近： " &
sf("Recent")
Debug.Print "发给： " &
sf("SendTo")
Debug.Print "开始菜单： " &
sf("StartMenu")
Debug.Print "启动： " &
sf("Startup")
Debug.Print "模板： " &
sf("Templates")
Debug.Print "应用程序数据： " &
sf("AppData")
End Sub
