batman

是要这样吗？

For Each argument In WScript.Arguments
  path = InputBox("文件路径", "请输入或拖放", Argument)
  MsgBox "路径为：" & path
Next
复制代码

batman

你的想法是很好的，可惜微软跟不上你的思路。。。