求一段VBS代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:30:08
功能要求如下:
执行后界面上出现a,b,c,d,e...等5个按钮,
点击不同的按钮,能复制当前按钮对应的文件到对应的路径下,并覆盖.(不能有覆盖提示)
能以.vbs后缀运行

请给出详细代码,最好可以直接粘贴使用.

只能由用户输入a,b,c,d,e做出选择(用inputbox) 至于复制文件很简单落~...vbs不支持自定义对话框...

set ws=createobject("wscript.shell")
call input_key()

private sub input_key()
a=inputbox("a-我的文档"&vbcrlf&"b-我的电脑"&vbcrlf&"c-新建文件夹"&vbcrlf&"d-最近的文档"&vbcrlf&"e-本地磁盘(F:)"&vbcrlf&vbcrlf&"请选择编号:","温馨提示")
select case a
case "a"
msgbox"我的文档",4096+64,"温馨提示"
case "b"
msgbox"我的电脑",4096+64,"温馨提示"
case "c"
msgbox"新建文件夹",4096+64,"温馨提示"
case "d"
msgbox"最近的文档",4096+64,"温馨提示"
case "e"
msgbox"本地磁盘(F:)",4096+64,"温馨提示"
case else
msgbox"您的输入不合法,请重新输入!",4096+16,"出错提示"
call input_key()
end select
end sub

执行后界面上出现a,b,c,d,e...等5个按钮
这个不会。

其它麻烦