2. 安装WScript.Shell对象:regsvr32 WShom.Ocx
卸载WScript.Shell对象:regsvr32 -u WShom.Ocx或者regsvr32 /u WShom.Ocx
3. 例子,假设mytest*.iso文件均在C:根目录下。建立mytest目录,将mytest*.iso文件拷贝到mytest目录下。
建立testcopy.bat文件,存于C:根目录下。
md mytest
copy c:\mytest*.iso mytest
pause
双击testcopy.dat即可看到新建立的mytest目录及被拷贝的mytest*.iso文件。
若隐藏cmd命令行窗口,有两种方法。
(1)创建WScript.Shell对象,由该对象直接运行testcopy.dat文件,对应的vbs文件:testcopy1.vbs,双击testcopy1.vbs即可看到效果。
dim objShell
set objShell=wscript.createObject("WScript.Shell")
iReturnCode=objShell.Run("c:\testcopy.bat",0,TRUE)
(2)创建WScript.Shell对象,由该对象直接运行dos命令,及testcopy.dat中的命令,对应的vbs文件:testcopy2.vbs
dim objShell
set objShell=wscript.createObject("WScript.Shell")
iReturnCode=objShell.Run("cmd.exe /c md mytest",0,TRUE)
iReturnCode=objShell.Run("cmd.exe /c copy c:\mytest*.iso mytest",0,TRUE)
更多文章请关注《万象专栏》
转载请注明出处:https://www.wanxiangsucai.com/read/cv165285