If wscript.Arguments.count=0 then
msgbox "拖拽图片文件到此vbs文件",0,"提示"
WScript.Quit
End if
for jb=0 to wscript.Arguments.count-1
strPath=wscript.Arguments(jb)
Set Shell = CreateObject("Wscript.Shell")
select case lcase(right(strPath,4))
'后缀名为4位的图片类型
case "jpeg"
Shell.Run chr(34)&strPath&chr(34)
end select
select case lcase(right(strPath,3))
'后缀名为3位的图片类型
case "jpg","png","bmp","gif"
Shell.Run chr(34)&strPath&chr(34)
end select
next
