常用VBS代码.docVIP

常用VBS代码 1.VBS获取路径集合1.1.VBS获取系统安装路径 ?程序代码 set WshShell = WScript.CreateObject(WScript.Shell)strWinDir = WshShell.ExpandEnvironmentStrings(%WinDir%) 上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用strWinDir调用这个变量。1.2.C:\Program Files路径 ?程序代码 msgbox CreateObject(WScript.Shell).ExpandEnvironmentStrings(%ProgramFiles%) 1.3.C:\Program Files\Common Files路径 ?程序代码 msgbox CreateObject(WScript.Shell).ExpandEnvironmentStrings(%CommonProgramFiles%) 2.给桌面添加网址快捷方式 ?程序代码 set gangzi = WScript.CreateObject(WScript.Shell)strDesktop = gangzi.SpecialFolders(Desktop)?set oShellLink = gangzi.CreateShortcut(strDesktop \Inter