WScript.Shell对象SpecialFolders属性未公开文档分享

newer

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

特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹：

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates

不过今天在用OllyDbg调试VBS的时候，发现文档中少写了一个AppData文件夹，作文以记之。

1. 'Author: Demon
   
2. 'Date: 2012-9-25
   
3. 'Website: http://demon.tw
   
4. Dim WshShell
   
5. Set WshShell = CreateObject("wscript.Shell")
   
6. 
   
7. WScript.Echo WshShell.SpecialFolders("AppData")  
   

'Author: Demon <br /> 'Date: 2012-9-25 <br /> 'Website: <a href=\"http://demon.tw\" target=\"_blank\">http://demon.tw</a> <br /> Dim WshShell <br /> Set WshShell = CreateObject("wscript.Shell") <br /> <br /> WScript.Echo WshShell.SpecialFolders("AppData")  <br />

基于上面的内容，写了个通用函数 XD::SYSTEM:GETSPECIALFOLDER， 见开源函数库：http://bbs.xdcad.net/thread-710992-1-1.html

命令: (XD::SYSTEM:GETSPECIALFOLDER "appdata")
"C:\\Users\\DELL-WORKSTATION\\AppData\\Roaming"


命令: (XD::SYSTEM:GETSPECIALFOLDER "desktop")
"C:\\Users\\DELL-WORKSTATION\\Desktop"

.......................
.......................