J'ai un petit soucis d'intégration dans mon script. Je n'arrive pas à lister les fichiers et sous fichiers d'un répertoire venant d'un fichier texte de plusieurs lignes. Pour une seul ligne tout et OK mais quant je met le "Do Untlil" ça ce complique un peut. Voilà à quoi ça ressemble :
 
Si vous avec des suggestions, elles seront les biens venues...
 
***********************************************
Do Until objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine
If inStr (strLine, "," ) Then
  arrRecord = split (strLine, "," )
  strSource = arrRecord(0)
  strDest = arrRecord (1)
End If
 
Set objFolder = objFSO.GetFolder(strSource)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next
Wscript.Echo
 
ShowSubfolders objFSO.GetFolder(strSource)
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
            Wscript.Echo objFile.Name
        Next
        Wscript.Echo
        ShowSubFolders Subfolder
    Next
End Sub
Loop
*****************************************************

déjà ton loop est pas placé du tout au bon endroit... après regarde les topics déjà existant, il me semble avoir vu la solution toute faite.

Merci pour ton conseil mais ou verrais-tu le Loop si je dois parcer le fichier texte plusieurs fois ?
 
Pour ce qui est des topics déjà ouvert je n'ai rien trouver en y mettant les mots clefs si tu as un lien c'est bien volontier.