vbs读取路径

Dim QQLNK,QQpath '用来存放QQ快捷方式文件路径 和 QQ真实目录

Set cik = CreateObject("WscriptShell")

Set fso = CreateObject("ScriptingFileSystemObject")

Set f = fsoGetFolder(cikSpecialFolders("Desktop")) '读取桌面路径Set fc = fFiles

For Each fs in fc

if instr(LCase(fsname),"qq") then

if Right(LCase(fsname),4)="lnk" then QQLNK = fsname '获取含QQ字样的快捷方式。

end if

Next

set Shortcuts = cikCreateShortcut(QQLNK)

QQpath = ShortcutsTargetPath '获取快捷方式指向路径

QQpath = mid(QQpath,1,InStrRev(QQpath,"\")) '整理路径(获取QQ目录)fsoCopyFile "c:\qqbat", QQpath,True '复制文件(如果存在就覆盖)WScriptQuit '退出脚本

先把下面的程序保存为一个html文件,比如存为c:\SaveIthtm

-------------------------------------------------------------------------------

<SCRIPT LANGUAGE="JScript" defer>

// const-like

var pth = "c:\\temp\\"; // default folder to hold data

var re = /[\\/:\\"<>\|]/g ; // match the invalid char in path

var ru = /([^/]+:\/\/[^/]+\/[^/]+\/)/g ; // match (xxxx://xxxxx/xxx/)

// initialization

var doc = externalmenuArgumentsdocument;

var rng = docselectioncreateRange();

var str = new String(rngtext); // the selected text

var uri = new String(doclocation); // the full url

var uri_sh = urireplace(ru, "$1"); // the short-url u want to retrieve

// create the fso

var fso = new ActiveXObject("ScriptingFileSystemObject");

// create folder

var fld = pth+uri_shreplace(re,"_")+"\\";

fsoCreateFolder(fld);

// open file for writing

var fn = new Date()getTime()+"txt";

var fo = fsoOpenTextFile(fld+fn,2,true);

foWrite(str);

foClose();

</SCRIPT>

-------------------------------------------------------------------------------

然后创建一个reg文件,例如SaveItreg,其内容如下:

Windows Registry Editor Version 500

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\SaveIt]

@="file://c:\\SaveIthtm"

"Contexts"=dword:00000010

保存后,双击reg注册右键菜单

现在,你就可以打开任意网页,选中一段内容,右键,选择SaveIt,内容会被保存到c:\temp\,这个路径是在SaveIthtm的开始设定的,你可以改为需要的其他目录

只是,你的要求有点让人困惑:

-------------------------------------------------------------------------------

怎样在浏览网页时用鼠标选取一段文字后单击右键可以调用一个VBS文件，

<这个已经做到了>

而这个VBS文件的功能是以选取的文字在指定的目录下建立一个文件夹，

<在程序里指定,还是在点击后提示用户选择目录呢建立的新目录又该如何命名呢>

之后再读取当前游览网页的地址的一部分如果是>

以上就是关于vbs读取路径全部的内容，包括:vbs读取路径、请问怎么用右键调用一个VBS文件、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！