Dim fso,wsh,path,Result
Set fso=CreateObject("Scripting.FileSystemObject")
Set wsh=CreateObject("Wscript.Shell")
Set path=fso.GetFolder(wsh.SpecialFolders("favorites"))
SearchFavorites path
SaveFiles Result
Wscript.Quit
Sub SearchFavorites(ObjectFolder)
Dim Subfolder
If ObjectFolder.Subfolders.Count>0 Then
For Each SubFolder in ObjectFolder.SubFolders
SearchFavorites Subfolder
Next
End If
If ObjectFolder.Files.Count>0 Then
Result=Result & vbCrLf & "<HR>" & ObjectFolder.Path & "<BR><BR><BR>" & vbCrLf & vbCrLf & vbCrLf
List(ObjectFolder)
End If
End Sub
Sub List(ObjectFolder)
Dim File,Target
For Each File in ObjectFolder.Files
If Instr(1,"url",fso.GetExtensionName(File),1)>0 Then
Set Target=wsh.CreateShortcut(File.Path)
Result=Result & "<A href=" & Target.Targetpath & ">" & vbCrLf
Result=Result & fso.GetBaseName(File) & "</A><BR><BR>" & vbCrLf & vbCrLf
End If
Next
End Sub
Sub SaveFiles(Result)
Dim filelist,spath
spath=wsh.SpecialFolders("desktop") & "\favorites.htm"
Set filelist=fso.CreateTextFile(spath,,true)
'Set filelist=fso.CreateTextFile(wsh.SpecialFolders("desktop") & "\favorites.htm",,true)
filelist.Write(Result)
filelist.Close
wsh.Run Chr(34) & spath & Chr(34)
'wscript.sleep 500
'fso.DeleteFile(spath)
End Sub
