用vbs 取得收藏夹里的所有链接名称和URL的脚本

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。
GetFavorites.vbs:


代码如下:

'===================================================================
Const FAVORITES = &H6&
Const ForWriting = 2
Set objShell = CreateObject("shell.application")
Set objFolder = objShell.Namespace(FAVORITES)
Set fso = CreateObject ("scripting.filesystemobject")
processGet objFolder
Set objFolder = Nothing
Set fso = Nothing
Wscript.quit
'===================================================================
Sub processGet (objFolder)
For Each objItem in objFolder.Items
If objItem.IsLink Then
Set objLink = objItem.GetLink
Wscript.echo objItem.Name
Wscript.echo objLink.Target
Set objLink = Nothing
ElseIf objItem.IsFolder Then
processGet objItem.getfolder
Else
Exit For
End If
Next
End Sub
'===================================================================

Getfavorites.bat:


代码如下:

cscript.exe C:\vbs\Getfavorites.vbs >C:\vbs\Getfavorites_result.txt
pause

赞 (0)

相关推荐

  • 用vbs 取得收藏夹里的所有链接名称和URL的脚本

    另外,可以考虑在输出的时候将链接输出成超链接形式,输出文件改为html文件.GetFavorites.vbs: 复制代码 代码如下: '=================================================================== Const FAVORITES = &H6& Const ForWriting = 2 Set objShell = CreateObject("shell.application") Set objF

  • 使用 Python 清理收藏夹里已失效的网站

    失效的书签们 我们日常浏览网站的时候,时不时会遇到些新奇的东西( 你懂的.jpg ),于是我们就默默的点了个收藏或者加书签.然而当我们面对成百上千的书签和收藏夹的时候,总会头疼不已-- 尤其是昨天还在更新的程序设计博客,今天就挂了永不更新.或者是昨天看的起劲的电影网站,今天直接404.失效页面这么多,每次我打开才知道失效了,并且需要手动删除,这能是一个程序员干的事情吗? 可是无论是Google浏览器还是国内浏览器,最多也就提供一个对于收藏夹的备份服务,那只能Python走起了. Python支持

  • C#实现创建桌面快捷方式与添加网页到收藏夹的示例

    今天来介绍一个小功能,就是把正在浏览的某网页添加到收藏夹中.完成这个功能主要是两步,首先要取得系统用户的收藏夹目录,第二是要根据获得页面地址在收藏夹目录创建一个快捷方式.具体我们就一起来了解一下吧. 一.C#创建快捷方式 要创建快捷方式须引用IWshRuntimeLibrary.dll,引用方式为:对项目添加引用-->选择COM组件-->选择"Windows Script Host Object Model"确定,则添加成功!接下来就是编码: /// <summary

  • 网页收藏夹显示ICO图标（代码少）

    在添加网页到收藏夹之后会看到一个漂亮的图标,很好奇是怎么实现的呢?其实实现代码很简单,只要在网页代码中加入一句话就可以了,不过有时候IE6/IE7/其它浏览器存在兼容性,下边代码框里的代码是IE6/IE7的代码,经过测试之后发现,选择IE7的代码可以实现兼容. 注意点:事先要把ICO图标存放到根目录或其它二级栏目的目录下,还要注意调用时候的路径,只允许使用相对路径. <title>让你的网页收藏夹显示ICO图标</title> <!--FOR IE7--> <li

  • jQuery实现加入收藏夹功能(主流浏览器兼职)

    关于"加入收藏"的代码,很多人都不会重视,一般情况是随便在网上搜一个代码放在页面里就草草了事了.可是都没有做到主流浏览器的兼容.下面分享一段使用 jQuery 实现加入收藏夹的功能. <a id="addcollect" href="#">加入收藏夹</a> $(document).ready(function() { $("#addcollect").click(function() { var ct

  • Mysql多层子查询示例代码(收藏夹案例)

    用户表 create table if not exists tb_book ( book_id char(10) not null comment 'book主键', book_name char(30) not null comment '书名', book_type char(10) not null comment '类别', book_brief varchar(500) not null comment '简介', book_online_time timestamp not nul

  • 2007年网络收藏夹网址收集

    2007年网络收藏夹网址收集

    百度搜藏http://cang.baidu.com/http://cang.baidu.com/egotong/ 雅虎收藏http://myweb.cn.yahoo.com/http://myweb.cn.yahoo.com/userurls.html?ou=fav_ramble 网络抽屉http://www.chouti.com/http://www.chouti.com/cnnic 纯我网http://www.chunw.com/http://www.chunw.com/my/?u=ramb

  • Asp.NET生成各种网页快捷方式的代码（桌面url快捷方式，收藏夹/开始菜单快捷方式）

    复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Collections; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syste

  • CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法

    本文实例讲述了CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法.分享给大家供大家参考.具体如下: 因为某网站看图比较坑爹,要一页一页的翻页....所以....就写了这么个东西 (我是产品不是程序员)运行速度简直无法忍受,而且经常会有错误发生,所以希望大家帮忙改进(PHP). 当然也欢迎看到PYTHON,GOLANG的版本~~^_^ 1. controllers: $this->load->helper('date'); $this->load->helper('p

  • Python挑选文件夹里宽大于300图片的方法

    本文实例讲述了Python挑选文件夹里宽大于300图片的方法.分享给大家供大家参考.具体分析如下: 这段代码需要用到PIL库.代码如下所示: import sys import os sys.path.append('PIL') from PIL import Image as im path = '/home/hualun/桌面/img/' new_path = '/home/hualun/桌面/img2/' for x in os.listdir(path): if x.endswith('

随机推荐