批处理之家 - Powered by Discuz! Board

标题: [其他] bat的：start "" %1 代码，怎样转为vbs代码？谢谢【已经解决】 [打印本页]

作者: yyz219 时间: 2021-8-31 10:19 标题: bat的：start "" %1 代码，怎样转为vbs代码？谢谢【已经解决】

本帖最后由 yyz219 于 2021-8-31 17:12 编辑

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

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

作者: yyz219 时间: 2021-8-31 17:11

从别的论坛解决了：

'把一个或多个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

欢迎光临批处理之家 (http://bbs.bathome.net/)