首页 / 编程脚本 / 用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:vbsGetfavorites.vbs >C:vbsGetfavorites_result.txt
pause