下面两段原理都是一样的,大家可以看下
代码一
- 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
复制代码
加了判定如果直接运行vbs会提示需要拖拽文件到此vbs文件上
代码二
vbs拖放操作的问题; 如下,只要将文件或文件夹拖到这个t.vbs上就可以得到该文件或文件夹的路径- For Each ar In WScript.Arguments
- filename=ar
- Next
- Msgbox filename
复制代码
好了这篇文章就先容到这了,需要的朋友可以参考一下。 |