Set oFSO = CreateObject("Scripting.FileSystemObject")
fichierDATA = "liste.txt"
If oFSO.FileExists(fichierDATA) = FALSE Then
SaveToFile "http://www.google.fr" & vbcrlf & "http://www.lemonde.fr", "liste.txt"
Msgbox "Le fichier " & fichierDATA & " n'existait pas, il a été créé avec des sites d'exemple." & vbcrlf & _
"Modifiez-le selon vos besoins," & vbcrlf & _
"puis relancez le fichier."
End If
Creer_Deux_Frames fichierDATA
Sub Creer_Deux_Frames (fichierDATA)
REM ========================================
REM = Créer les fichiers index.htm et frameg.htm
REM ========================================
Set f = oFSO.OpenTextFile(fichierDATA)
CorpsHTML = "<html> <head> <title>Creer des frames </title> </head> <frameset cols=12*,88* Frameborder=none> <frame name=frameg src=""frameg.htm""> <frame name=framed> </frameset> </html> "
SaveToFile CorpsHTML, "index.htm"
CorpsHTML = "<html><head></head><body bgcolor=EEEEEE><table border=1>"
Do
sSite = f.ReadLine
p = InstrRev(sSite, "/")
sSiteShort = Right(sSite, Len(sSite) - p)
a = a & vbcrlf & "<tr> <td> <a href=""" & _
sSite & """ target=""framed"">" & sSiteShort & "</a> </td> </tr>"
Loop Until f.AtEndOfStream
a = a & "</table> </html>"
CorpsHTML = a
SaveToFile CorpsHTML, "frameg.htm"
End Sub
Sub SaveToFile (sTexte, sFile)
REM ========================================
REM = Sauvegarde un texte dans un fichier
REM ========================================
Dim oFSO, f1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set f1 = oFSO.CreateTextFile(sFile)
f1.Write sTexte
f1.Close
Set f1 = Nothing
Set oFSO = Nothing
End Sub