bat的：start "" %1 代码，怎样转为vbs代码？谢谢【已经解决】

yyz219

bat的：start  "" %1  代码，怎样转为vbs代码？谢谢

我想实现：文件拖动这个VBS图标，就打开  被拖动的文件【最好是：仅仅对图片文件才打开，其它无反应】

yyz219

从别的论坛解决了：

'把一个或多个jpg、png、gif等图片文件拖到此vbs文件上

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

WScript.Quit