If wscript.Arguments.count=0 then
msgbox "拖拽文件到本vbs文件",0,"提示"
End if
for jb=0 to wscript.Arguments.count-1
strPath=wscript.Arguments(jb)
msgbox strPath
next
加了判斷如果直接運行vbs會提示需要拖拽文件到此vbs文件上
代碼二
vbs拖放操作的問題; 如下,只要將文件或文件夾拖到這個t.vbs上就可以得到該文件或文件夾的路徑
For Each ar In WScript.Arguments
filename=ar
Next
Msgbox filename
