中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-04 09:04

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段代码错在哪里？？

可打印版本　663 / 3

第1楼　stornager	发表于 2007-04-26 05:48
中级用户　发帖 131　积分 328
请vbs高手分析这段代码错在哪里？？ http://www.cn-dos.net/forum/viewthread.php?tid=30046 [ Last edited by stornager on 2007-5-24 at 01:52 PM ]

第2楼　slore	发表于 2007-04-26 05:52
铂金会员　发帖 2,478　积分 5,212
自己试下不就知道了?

第3楼　lxmxn	发表于 2007-04-26 06:28
版主　发帖 4,938　积分 11,386
ps一下，发代码上来的时候，请勾选上“禁用 Smilies”，这样代码就不会被特殊的表情字符转义了，方便大家查看代码。建议现在修改一下。

第4楼　stornager	发表于 2007-04-26 11:18
中级用户　发帖 131　积分 328
我已测试，系统没有提示任何错误．但是我觉得这但代码不够简洁，想请高手简化一下，尽量最简单！！代码如下： Sub MaApp() Dim fso,n,d Set fso=CreateObject("Scripting.FileSystemObject"） n=Inputbox("Please enter a number."） If n=0 Then Set d=fso.DeleteFolder("C:\windows\system32\npp" d.DeleteFolder "C:\windows\system32\npp" Elseif n>=1 Then Msgbox "你无法删除此文件夹。" End If End Sub

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