中国DOS联盟

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

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

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

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

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『楼主』: 请vbs高手分析这段代码错在哪里？？

http://www.cn-dos.net/forum/viewthread.php?tid=30046

[ Last edited by stornager on 2007-5-24 at 01:52 PM ]

2007-4-26 05:48

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

自己试下不就知道了?

2007-4-26 05:52

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 3 楼』:

ps一下，发代码上来的时候，请勾选上“禁用 Smilies”，这样代码就不会被特殊的表情字符转义了，方便大家查看代码。建议现在修改一下。

2007-4-26 06:28

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 4 楼』:

我已测试，系统没有提示任何错误．但是我觉得这但代码不够简洁，想请高手简化一下，尽量最简单！！
代码如下：
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

2007-4-26 11:18

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

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

论坛跳转: