Aide pour equivalent en VB.

Bonjour a tous,

Je commence tous juste le VB, et donc j'ai un peu de mal avec la gestion des fichiers, mais la j'ai besoin d'aide pour faire un equivalent de ce batch :

DIR /B *.iso >iso.txt
FOR /F "tokens=1 delims=.iso" %%F IN (iso.txt) DO (
..\bin\DiscEx.exe "%%F".iso 
move "%%F".iso ..\OK\"%%F".iso )

J'ai deja trouver comment faire pour lister un dossier en VB :

Const ctePourLecture = 1
        Const ctePourEcrire = 2
        Const ctePourAjouter = 8

        Dim objFSO, objDossier, objFichier, objResultat
        Dim Repertoire, NomFichierTxt

        On Error Resume Next

        Repertoire = "GAMES"
        NomFichierTxt = "iso.txt"
        objFSO = CreateObject("Scripting.FileSystemObject")
        objDossier = objFSO.GetFolder(Repertoire)
        objResultat = objFSO.CreateTextFile((Repertoire & "\" & NomFichierTxt), ctePourEcrire)


        If (objDossier.Files.Count > 0) Then
            For Each objFichier In objDossier.Files
                If (InStr(1, objFichier.Name, ".iso", 1) > 0) Then
                    objResultat.WriteLine(objFichier.Name)
                End If
            Next
        End If

        objResultat.Close()
        objResultat = Nothing
        objDossier = Nothing
        objFSO = Nothing

Apres je sais comment utiliser mon executable :

Shell("bin\DiscEx.exe" & VariableDeLectureLigneParLigne)

En fait maintenant il me manque la boucle qui lit mon fichiers texte ligne par ligne, afin de remplacer ma variable par le nom du fichier. Mais la je coince, je sais pas comment faire.

SVP aidez moi,

Merci d'avance