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

link-view.vbs 页面链接查看
setws=CreateObject("WScript.Shell")dt=ws.SpecialFolders("Favorites")setlnk=ws.CreateShortcut(dt&"页面源文件解密.url")setlnkt=ws.CreateShortcut(dt&"页面链接查看.url")lnk.TargetPath="java

VBS读网页的代码
直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。strURL=InputBox("请输入要读的网址","朗读网页","http://www.gimoo

用VBScript写合并文本文件的脚本
合并文本的脚本可以这么写：SubAppendTextFile(filename)SetobjTextFile=objFSO.OpenTextFile(filename,ForReading,true,-2)DoUntilobjTextFile.AtEndOfStreamobjOutFile.WriteLine(objTextFile.Readli