VBS获取文件完整路径并存储（拖放操作）vbs 拖拽 参数

'=======================================================================
'VBScript Source File -- 获取文件完整路径并存储（拖放操作）
'NAME:获取文件完整路径并存储（拖放操作）
'AUTHOR:Null
'DATE:2008-08-09
'COMMENT:获取文件完整路径并存储（拖放操作）
'=======================================================================
function getfolder()
getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) 
end function
path=left(wscript.scriptfullname,len(wscript.scriptfullname)-len(Wscript.ScriptName)) 
ptxt=path&"\Path.txt"
Set fso = wscript.CreateObject("Scripting.FileSystemObject") 
set f=fso.opentextfile(ptxt,8,true) 
path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName))
if wscript.arguments.count=0 then
msgbox "请将需要操作文件拖放到本脚本上即可!",48,"提示"
wscript.quit
end if
for each fname in wscript.arguments
f.writeline(fname)
next
f.close