[VB] un bug

Private Sub SearchFile(ByVal StartPath As String)

    Dim Search As Variant
    Dim Filename As String

    ' Assure toi qu'il y est bien une barre oblique "\" à la fin de StartPath
    StartPath = "C:\"
    Search = Dir(StartPath & "*.txt")
    If Search <> "" Then
        Do
            If (Search <> "." And Search <> "..") Then
                ' Chemin d'accès complet du fichier trouver
                Filename = StartPath & Search
                ' S'assurez que c'est bien un fichier(pas obligatoire)
                If (GetAttr(Filename) And vbDirectory) <> vbDirectory Then
                    ' Crée toi une procédure ou fonction pour traiter le fichier trouver en lui passant le fichier trouver en paramètre
                    If (Filename <> "C:\toto.txt") Then
                        Call ProcedureDeTraitement(Filename)
                    End If
                End If
            End If
            Search = Dir() ' Recherche le prochain fichier
            DoEvents
        Loop Until Search = "" ' Boucle tant qu'il trouve des fichiers
    End If

End Sub
'

'========================================================'

Public Sub ProcedureDeTraitement(NomDuFichier As String)

    Dim Fic1, Fic2 As Integer

    Fic1 = FreeFile
    Open NomDuFichier For Input As #Fic1
    Fic2 = FreeFile
    Open "C:\toto.txt" For Output As #Fic2
    While Not EOF(Fic1)
        Line Input #Fic1, ligne
        Write #Fic2, ligne
    Wend
    Close (Fic1)
    Close (Fic2)

End Sub