用vbs 取得收藏夾里的所有鏈接名稱和URL的腳本
更新時間：2009年04月20日 02:49:19 作者：
新建一個vbs文件（C:\vbs\Getfavorites.vbs），再新建一個bat文件（Getfavorites.bat），執(zhí)行bat文件，收藏夾里的所有項目都會被寫入到C:\vbs\Getfavorites_result.txt文件中。
另外，可以考慮在輸出的時候?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
GetFavorites.vbs:
復(fù)制代碼 代碼如下:
'===================================================================
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:
復(fù)制代碼 代碼如下:
cscript.exe C:\vbs\Getfavorites.vbs >C:\vbs\Getfavorites_result.txt
pause
相關(guān)文章
vbs/js腳本編程教學(xué)（1）...2007-02-02![[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載](http://img.jbzj.com/images/xgimg/bcimg1.png)
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載...2007-03-03
VBS教程：VBScript 語句-Set 語句...2006-11-11
這篇文章主要介紹了使用VBS獲取當(dāng)前日期的前一天 并修正輸出格式,需要的朋友可以參考下2014-05-05
目前各類萬能驅(qū)動程序包在網(wǎng)絡(luò)上屢見發(fā)布，在使用這些程序包的同時，我們不僅會問：為什么這些程序包中的驅(qū)動程序可以在安裝新硬件之后自動安裝呢？2008-07-07
寫了這么多VBS，從來都沒有使用過SetLocale函數(shù)，似乎也沒有見過誰的代碼使用過，這個SetLocale函數(shù)到底有什么用呢2013-05-05
vbs實現(xiàn)unicode和ascii編碼轉(zhuǎn)換
這篇文章主要介紹了vbs實現(xiàn)unicode和ascii編碼轉(zhuǎn)換,本文同時介紹了OpenTextFile和CreateTextFile的使用,需要的朋友可以參考下2014-11-11
有時候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了2013-09-09
頁面源文件解密 頁面鏈接查看具體查看收藏夾2009-04-04
利用vbs自動修改ip的代碼...2007-03-03