用vbs 取得收藏夾里的所有鏈接名稱和URL的腳本
更新時(shí)間：2009年04月20日 02:49:19 作者：
新建一個(gè)vbs文件（C:\vbs\Getfavorites.vbs），再新建一個(gè)bat文件（Getfavorites.bat），執(zhí)行bat文件，收藏夾里的所有項(xiàng)目都會(huì)被寫(xiě)入到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
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 語(yǔ)句-Set 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Set 語(yǔ)句...2006-11-11
這篇文章主要介紹了使用VBS獲取當(dāng)前日期的前一天 并修正輸出格式,需要的朋友可以參考下2014-05-05
目前各類萬(wàn)能驅(qū)動(dòng)程序包在網(wǎng)絡(luò)上屢見(jiàn)發(fā)布，在使用這些程序包的同時(shí)，我們不僅會(huì)問(wèn)：為什么這些程序包中的驅(qū)動(dòng)程序可以在安裝新硬件之后自動(dòng)安裝呢？2008-07-07
寫(xiě)了這么多VBS，從來(lái)都沒(méi)有使用過(guò)SetLocale函數(shù)，似乎也沒(méi)有見(jiàn)過(guò)誰(shuí)的代碼使用過(guò)，這個(gè)SetLocale函數(shù)到底有什么用呢2013-05-05
vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換
這篇文章主要介紹了vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換,本文同時(shí)介紹了OpenTextFile和CreateTextFile的使用,需要的朋友可以參考下2014-11-11
有時(shí)候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了2013-09-09
頁(yè)面源文件解密 頁(yè)面鏈接查看具體查看收藏夾2009-04-04
利用vbs自動(dòng)修改ip的代碼...2007-03-03