s=inputbox("输入路径","输入框","c:") if s<>"" then Set obj = createobject("wscript.shell") obj.run "cmd /c explorer " & s ,2 end if