VBS获取文件完整路径并存储（拖放操作）
2009-04-06 11:08'=======================================================================
'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

vbs:很实用的工具——快速复制文件（夹）完整路径
2009年02月01日 星期日 下午 08:42
这vbs技术含量不高，不过很实用。


经常复制文件（夹）路径，

文件夹路径还好，直接复制就行；

文件路径就要先复制它所在文件夹的路径了，再属性，把文件名字复制，接起来才行，很烦。

那天灵感来了，就弄了个vbs，使发送到菜单里多个选项：复制路径。

具体操作：

建立一个vbs文件，名为：复制路径.vbs，内容为：

fileName=wscript.arguments(0)

set fso=createobject("scripting.filesystemobject")

fso.createtextfile("0").write(fileName)

set ws=createobject("wscript.shell")

ws.run "cmd /c type 0 |clip",0,-1

fso.deletefile("0")

保存，把这个vbs文件弄到sendto文件夹，

找不到sendto文件夹？运行下面的vbs，就会显示sendto文件夹的路径，

msgbox createobject("wscript.shell").specialfolders("sendto")

把第一个vbs丢进去，好了，你的右键发送到多了个：复制路径.vbs

当文件或文件夹被发送到它之后，文件（夹）的完整路径就已经进入剪切板了！

还有，如果不喜欢那个图标或菜单选项有个vbs的扩展名，

可以把第一个vbs存好，再把它的快捷方式丢到sendto，这样，图标或文件名就随你改了（改那个快捷方式的哈！！！！）

原帖由 broly 于 2010-11-6 12:41 发表
你的是XP系统吗？WIN7下此代码不可用if wscript.arguments.count=0 then
wscript.echo "请将文件拖放到本脚本上!"
wscript.quit
end if
dim fso,f
set fso = wscript.createobject("scripting.filesystemobject ...

原帖由 broly 于 2010-11-6 13:10 发表
原先那个错了

if wscript.arguments.count=0 then
wscript.echo "请将文件拖放到本脚本上!"
wscript.quit
end if
dim fso,f
set fso = wscript.createobject("scripting.filesystemobject")
Set f = fso.G ...