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

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