中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-30 13:03

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,279 会员排行

DOS批处理 & 脚本技术（批处理室） » 请教vbs 调用批命令的问题？

可打印版本　913 / 6

第1楼　ooaf	发表于 2009-02-16 00:14
中级用户　发帖 162　积分 313
请教vbs 调用批命令的问题？请教vbs 调用批命令的问题？请问下面的代码有问题吗？代码: Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0 下面的代码可以精简吗？代码: Sh.Run "cmd /c if exist c:\pc.htm for %%a in (c:\pc.htm) do if %%~za lss 20480 del %%a"

第2楼　everest79	发表于 2009-02-16 01:39
金牌会员　发帖 1,127　积分 2,564
Dim FSO,WSH Set FSO=CreateObject("Scripting.FileSystemObject") Set WSH=CreateObject("WScript.Shell") If FSO.FileExists("C:\pc.htm") Then FSO.MoveFile "C:\pc.htm",FSO.GetSpecialFolder(0) & "\" WSH.RUN FSO.GetSpecialFolder(0) & "\pc.htm" End If Dim FSO Set FSO=CreateObject("Scripting.FileSystemObject") If FSO.FileExists("C:\pc.htm") Then If FSO.GetFile("C:\pc.htm").SIZE < 20480 Then FSO.DeleteFile("C:\pc.htm") End If End If

第3楼　ooaf	发表于 2009-02-16 10:38
中级用户　发帖 162　积分 313
有时候，Scripting.FileSystemObject 对vbs 来说，是致命的弱点。

第4楼　zhengqian529	发表于 2009-02-16 15:07
初级用户　发帖 93　积分 100　来自湖南
FSOx提供了很多操作文件和文件夹的方法，楼上能够解释下你所说的弱点吗？

第5楼　zhengqian529	发表于 2009-02-16 15:07
初级用户　发帖 93　积分 100　来自湖南
Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0 错误提示能发下吗？

第6楼　ooaf	发表于 2009-02-16 16:20
中级用户　发帖 162　积分 313
Originally posted by zhengqian529 at 2009-2-16 03:07 PM: Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0 错误提示能发下吗？这句我改了，网上搜索了一下，加了个call ，以前没有加，运行没反应！

第7楼　ooaf	发表于 2009-02-16 16:22
中级用户　发帖 162　积分 313
Sh.Run "cmd /c if exist c:\pc.htm for %%a in (c:\pc.htm) do if %%~za lss 20480 del %%a" 这句能精简吗？

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023