代码一
If wscript.Arguments.count=0 then msgbox "拖拽文件到本vbs文件",0,"提示"End if for jb=0 to wscript.Arguments.count-1strPath=wscript.Arguments(jb)msgbox strPathnext
加了判断如果直接运行vbs会提示需要拖拽文件到此vbs文件上
代码二
vbs拖放操作的问题; 如下,只要将文件或文件夹拖到这个t.vbs上就可以得到该文件或文件夹的路径
For Each ar In WScript.Argumentsfilename=arNextMsgbox filename