用vbs 取得收藏夾里的所有鏈接名稱和URL的腳本

    新建一個(gè)vbs文件（C:\vbs\Getfavorites.vbs），再新建一個(gè)bat文件（Getfavorites.bat），執(zhí)行bat文件，收藏夾里的所有項(xiàng)目都會(huì)被寫入到C:\vbs\Getfavorites_result.txt文件中。
    另外，可以考慮在輸出的時(shí)候?qū)㈡溄虞敵龀沙溄有问?，輸出文件改為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