Cacher is the code snippet organizer for pro developers

Vbs下一些取特殊路径的方法

1、用FSO的SpecialFolder常数 

FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在C盘的话，那么返回的就是"C:\Windows"这个路径字符串。1对应SystemFolder，GetSpecialFolder(1)返回"C:\Windows\system32"。2代表临时文件夹，

2、用WshShell的取系统环境变量
返回WshEnvironment的对象合集。先看一个实例： 

Set WshShell=Wscript.CreateObject("Wscript.Shell")         //绑定WSH对象 
Set WshSysEnv=WshShell.Environment("Process") 
Wscript.Echo WshSysEnv.Item("SYSTEMROOT") 

将以上代码保存为vbs文件，运行，是不是弹出了你的系统路径？"C:\windows"

3、用WshShell的SpecialFolders属性 

SpecialFolders属性提供WshSpecialFolders对象以便访问Windows的shell文件夹，例如桌面文件夹、开始菜单文件夹和个人文档文件夹。 

SpecialFolders的部分属性： 

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

查看全部的属性
Set WshShell=Wscript.CreateObject("Wscript.Shell") 
For Each strFolder In WshShell.SpecialFolders 
    Wscript.Echo strFolder 
Next 


获取桌面
Set Set_Path = CreateObject("WScript.Shell")'创建对象
msgbox Set_Path.SpecialFolders("desktop")