一段语句只能下载一个文件,要下载多个文件,可以自定义方法,多次调用。
Set xPost = CreateObject("MicrosoftXML>可以写,但实在很麻烦,而且由于为了照顾你机器配置及网络的缘故,恐怕执行时间会很长很长给你两个例子:
自动到百度搜索歌曲:white flag
Dim WshShell,Path,i
Set WshShell = WScriptCreateObject("WScriptShell")
WshShellRun("IEXPLOREEXE")
WScriptSleep 2000
WshShellAppActivate "about:blank-Microsoft Internet Explorer"
WshShellSendKeys "+{TAB}"
WshShellSendKeys ">其实知道cmd中有个xcopy的命令就是复制文件夹的,
我们只需要调用这个命令即可:
set ws=wscriptcreateobject("wscriptshell")
wsrun"cmd /c xcopy 需要复制的文件夹 目的地 /e"
其中需要复制的文件夹、目的地,改为自己的;
如果我想把C:\Program Files\aaa复制到D:\aaa代码就是这样的:
set ws=wscriptcreateobject("wscriptshell")
wsrun"cmd /c xcopy C:\Program Files\aaa D:\aaa /e"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)