中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 请教vbs 调用批命令的问题? 上一主题 | 下一主题
ooaf
中级用户





积分 313
发帖 162
注册 2007-4-2
状态 离线
『楼 主』:  请教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"


2009-2-16 00:14
查看资料  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 2 楼』:  


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 楼』:  

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

2009-2-16 10:38
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zhengqian529
初级用户





积分 100
发帖 93
注册 2009-1-14
来自 湖南
状态 离线
『第 4 楼』:  

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

2009-2-16 15:07
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (250988158)  编辑帖子  回复  引用回复
zhengqian529
初级用户





积分 100
发帖 93
注册 2009-1-14
来自 湖南
状态 离线
『第 5 楼』:  

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 楼』:  



  Quote:
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 楼』:  


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
查看资料  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: