标题: 请vbs高手分析这段代码错在哪里？？ [打印本页]

---

作者: stornager     时间: 2007-4-26 05:48    标题: 请vbs高手分析这段代码错在哪里？？

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

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

---

作者: slore     时间: 2007-4-26 05:52
自己试下不就知道了?

---

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

---

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