' Programme de gestion des Favoris
' (C) 2004 Alain Guimberteau
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oS = WScript.CreateObject("WScript.Shell")
Set oSe = oS.Environment("PROCESS")
Set H = oFSO.CreateTextFile("FAVORIS.HTM")
H.Write("")
H.Write("")
H.Write("FAVORIS
")
Root = oS.SpecialFolders("Favorites")
Set oFolder = oFSO.GetFolder(Root)
TFolder(oFolder)
Set oFolder = Nothing
H.Write("© Alain Guimberteau
")
H.Write("")
H.Write("")
H.Close
Set oSe = Nothing
Set oS = Nothing
Set oFSO = Nothing
Sub TFolder(Item)
T = Mid(Item,Len(Root)+2)
If T>"" Then
H.Write(" ")
H.Write(Replace(T,"\"," - "))
H.Write("
")
End If
H.Write("")
Set F = Item.Files
For Each oFile in F
TFile(oFile)
Next
Set F = Nothing
H.Write("
")
Set SF = Item.SubFolders
For Each oFolder in SF
TFolder(oFolder)
Next
Set SF = Nothing
End Sub
Sub TFile(Item)
If Not UCase(Right(Item,3))="URL" then
Exit Sub
End If
T = Mid(Item,InStrRev(Item,"\")+1)
T = Left(T,Len(T)-4)
Set I = oFSO.OpenTextFile(Item,1)
Do
L = I.ReadLine
Loop Until L="[InternetShortcut]"
L = I.ReadLine
I.Close
Set I = Nothing
If UCase(Left(L,4))="URL=" Then
H.Write("")
H.Write(T)
H.Write("")
End If
End Sub