vbs下如何取特殊路径-创新互联
这篇文章将为大家详细讲解有关vbs下如何取特殊路径,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。
成都创新互联专注于企业营销型网站、网站重做改版、威信网站定制设计、自适应品牌网站建设、H5场景定制、成都做商城网站、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为威信等各大城市提供网站开发制作服务。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代表临时文件夹,就不要我多说了吧?
下面给出取临时文件夹路径字符串的实例:
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") //绑定FSO对象
Dim tempfolder
Const TemporaryFolder = 2
Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echo tempfolder
你把上面的代码保存为一个vbs文件打开试试,弹出了你的临时文件夹所在的路径。这个字符串存放在变量tempfolder里面,明白?
2、用WshShell的取系统环境变量
Wscript.Shell对象提供了Environment这个一个东东。返回WshEnvironment的对象合集。先看一个实例:
Set WshShell=Wscript.CreateObject("Wscript.Shell") //绑定WSH对象
Set WshSysEnv=WshShell.Environment("Process")
Wscript.Echo WshSysEnv.Item("SYSTEMROOT")
将以上代码保存为vbs文件,运行,是不是弹出了你的系统路径?"C:\windows"对吧?
有人会问,如果想取其他的路径呢?取决于你的系统环境变量了,系统环境变量一般又下面几个:
名称说明
NUMBER_OF_PROCESSORS计算机上运行的处理器数目。
PROCESSOR_ARCHITECTURE用户工作站使用的处理器类型。
PROCESSOR_IDENTIFIER用户工作站的处理器ID。
PROCESSOR_LEVEL用户工作站的处理器级。
PROCESSOR_REVISION用户工作站的处理器版本。
OS用户工作站所用的操作系统。
COMSPEC用于运行“命令提示”窗口的命令(通常为cmd.exe)。
HOMEDRIVE本地主驱动器(通常为C驱动器)。
HOMEPATH用户的默认路径(在WindowsNT上通常为\users\default)。
PATH路径环境变量。
PATHEXT可执行文件的扩展名(通常为.com、.exe、.bat或.cmd)。
PROMPT命令提示符(通常为$P$G)。
SYSTEMDRIVE系统所在的本地驱动器(例如,c:\)。
SYSTEMROOT系统目录(例如,c:\winnt)。和WINDIR相同。
WINDIR系统目录(例如c:\winnt)。和SYSTEMROOT相同。
TEMP存储临时文件的目录(例如,c:\temp)。用户可更改。
TMP存储临时文件的目录(例如,c:\temp)。用户可更改。
你可以用上面的变量自己替换WshSysEnv.Item("SYSTEMROOT")里面的SYSTEMROOT。
3、用WshShell的SpecialFolders属性
SpecialFolders属性提供WshSpecialFolders对象以便访问Windows的shell文件夹,例如桌面文件夹、开始菜单文件夹和个人文档文件夹。
下面biweilun给出实例:
Set WshShell=Wscript.CreateObject("Wscript.Shell")
Wscript.Echo "Yourdesktopis"&WshShell.SpecialFolders("Desktop")
这是一个弹出你的桌面文件夹所在的路径的字符串,当然你也可以选择用一个字符串来保存它。那么,SpecialFolders属性一共有那些呢?
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
以上的文件夹大家看就能猜到这是什么路径了吧?如果你认为我写得不全,你可以自己使用下面的脚本代码看:
Set WshShell=Wscript.CreateObject("Wscript.Shell")
'htp://hi.baidu.com/biweilun
'Listallspecialfolders
For Each strFolder In WshShell.SpecialFolders
Wscript.Echo strFolder
Next
你会发现所有可用的SpecialFolders都一一弹出来显示了。
关于“vbs下如何取特殊路径”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,使各位可以学到更多知识,如果觉得文章不错,请把它分享出去让更多的人看到。
本文名称:vbs下如何取特殊路径-创新互联
网站路径:http://azwzsj.com/article/dodghg.html