ファイルをドラッグ＆ドロップするとファイルパスが表示される vbs コード

If wscript.Arguments.count=0 then 
		msgbox "Drag and drop file to this vbs file",0,"prompt"
End if  
for jb=0 to wscript.Arguments.count-1
	strPath=wscript.Arguments(jb)
	msgbox strPath	
next

For Each ar In WScript.
filename=ar
Next
Msgbox filename