.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
在快捷方式的右键菜单上添加打开所在目录的菜单项

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

有时候经常要打开一个文件所在的文件夹,去寻找其他的文件,比如要打开vc的工具目录运行没有列在开始菜单中的程序,或是修改一个程序的配置文件。对于有快捷方式的,一般的做法是在快捷方式上右击,打开快捷方式的属性,通过find target来进入所在的文件夹。下面列出的vb script会直接打开快捷方式的目标文件所在的文件夹。通过修改注册表,可以在右键菜单上添加Open Folder项来调用这个脚本。

/************************open_shrtct_parent_folder.vbs******************************/
set args = WScript.Arguments
linkname = args(0)

set wshshell = CreateObject("WScript.Shell")

set scut = wshshell.CreateShortcut(linkname)

set fs = CreateObject("Scripting.FileSystemObject")

folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"

wshshell.Run(folder)

/************************open_shrtct_parent_folder.vbs******************************/

/************************lnk.reg**************************/
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\shell]

[HKEY_CLASSES_ROOT\lnkfile\shell\Open Folder]

[HKEY_CLASSES_ROOT\lnkfile\shell\Open Folder\command]
@="wscript.exe \"F:\\Scripts\\open_shrtct_parent_folder.vbs\" \"%L\""

/************************lnk.reg**************************/
注:
1. 请修改上面的F:\\Scripts\\open_shrtct_parent_folder.vbs为实际存放open_shrtct_parent_folder.vbs的路径。
2. 不要复制/*****/行。

脚本的速度还是有点慢,有点电脑上测试打开会有比较大的延迟,但也有表现飞快地。
其实我一直使用C/C++,对vb和script都不熟。谁有兴趣可以直接写一个注册的脚本。




相关文章

相关软件