For Each a In WScript.Arguments
s = s & a & vbCrLf
Next
MsgBox s
 
将需要查看的文件拖放到此脚本文件上,即可看到效果!