用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 (