中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

作者:

标题: 请教vbs 调用批命令的问题？

上一主题 | 下一主题

ooaf
中级用户

积分 313
发帖 162
注册 2007-4-2
状态离线

『楼主』: 请教vbs 调用批命令的问题？使用 LLM 解释/回答一下

请教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"

2009-2-16 00:14

查看资料发短消息网志

编辑帖子回复引用回复

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下



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

49206C6F766520796F752067757973 54656C3A3133383238343036373837

2009-2-16 01:39

查看资料发短消息网志

编辑帖子回复引用回复

ooaf
中级用户

积分 313
发帖 162
注册 2007-4-2
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

有时候，Scripting.FileSystemObject 对vbs 来说，是致命的弱点。

2009-2-16 10:38

查看资料发短消息网志

编辑帖子回复引用回复

zhengqian529
初级用户

积分 100
发帖 93
注册 2009-1-14
来自湖南
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

FSOx提供了很多操作文件和文件夹的方法，楼上能够解释下你所说的弱点吗？

2009-2-16 15:07

查看资料发送邮件访问主页发短消息网志 OICQ

(250988158)

编辑帖子回复引用回复

zhengqian529
初级用户

积分 100
发帖 93
注册 2009-1-14
来自湖南
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0

错误提示能发下吗？

2009-2-16 15:07

查看资料发送邮件访问主页发短消息网志 OICQ

(250988158)

编辑帖子回复引用回复

ooaf
中级用户

积分 313
发帖 162
注册 2007-4-2
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

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 ，以前没有加，运行没反应！

2009-2-16 16:20

查看资料发短消息网志

编辑帖子回复引用回复

ooaf
中级用户

积分 313
发帖 162
注册 2007-4-2
状态离线

『第 7 楼』: 使用 LLM 解释/回答一下

Sh.Run "cmd /c if exist c:\pc.htm for %%a in (c:\pc.htm) do if %%~za lss 20480 del %%a"

这句能精简吗？

2009-2-16 16:22

查看资料发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: