[ 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