拖拽文件显示文件路径的vbs代码

    下面两段原理都是一样的,大家可以看下

    代码一

    
    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

    好了这篇文章就介绍到这了,需要的朋友可以参考一下。