亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

新建一個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