取得收藏夹里的所有链接名称和URL的脚本(VBS)

    新建一个vbs文件（C:\vbs\Getfavorites.vbs），再新建一个bat文件（Getfavorites.bat），执行bat文件，收藏夹里的所有项目都会被写入到C:\vbs\Getfavorites_result.txt文件中。

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为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