Dim vpPath As String
Dim vpName As String

Dim vpLigne As String

Dim i As Integer
Dim j As Integer
Dim idx As Integer
Dim vplen As Integer

Open "K:\test.htm" For Output As #2

vpPath = "K:\FlashGames\*.*"
vpName = Dir(vpPath)
vpPath = "K:\FlashGames\"

Do While vpName <> ""
        
    Open vpPath & vpName For Input As #1
    Do While Not EOF(1)
        Line Input #1, vpLigne
        For i = 1 To Len(vpLigne)
            If (Mid$(vpLigne, i, 4) = ".swf") Then
                idx = i + 14
                For j = idx To Len(vpLigne)
                    If (Mid$(vpLigne, j, 4) = ".swf") Then
                        vplen = j - idx + 4
                        Print #2, "<IFRAME src=""" & Mid$(vpLigne, idx, vplen) & """ name=""game"" align=""center"" width=""640"" height=""480"" marginheight=0 marginwidth=0 frameborder=""no""></div></IFRAME>"
                        Exit For
                    End If
                Next j
                Exit For
            End If
        Next i
    Loop
    Close #1
        
   vpName = Dir

Loop

Close #2

MsgBox "Done"

Oui, j'ai honte...