Problème Nombre Dossiers

Rebonjour, Non ce n'est pas le même sujet.
J'essaie de créer un dossier dans un dossier, sachant que les valeurs de ces deux dossiers sont des variables.
Tous les dossier ne sont pas créés

Ici j'ouvre le fichier texte liste.txt comprenant 4 pdf
chacun décomposé en 11650253fac.pdf 21654879fac.pdf 31621587fac.pdf 41698567fac.pdf
ou les deux premiers chiffres sont le code suc du site
et les 6 ssuivants le numéros de compte
Le problème est que les quatres dossiers étant en dur ( 11 , 21, 31,41)
il devrait avoir dans les dossiers, un nouveau dossier nommé 652145 (voir le nom des pdf)
Hors, seuls deux des mes dossiers sont pris en compte et créés. (dans 21 et 41)
J'en déduit donc qu'en boulcnat avec le while, il saute une étape. Mais je n'arrive pas a voir laquelle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Set oFso = CreateObject("Scripting.FileSystemObject") Set oTxt = oFso.OpenTextFile("C:\Program Files\test\test\liste.txt")   While not oTxt.AtEndOfStream fTxt = oTxt.ReadLine sTxt = oTxt.ReadLine   fTxt = Left(fTxt,2) sTxt = Mid(sTxt,3,6) set oFso = CreateObject("Scripting.FileSystemObject") if (oFso.FolderExists("\\xxxxx\xxxx\xxx\xx\pdf\" & fTxt & "\" & sTxt)) Then Else set MonDossier = oFso.CreateFolder("\\xxxxx\xxxx\xxx\xx\pdf\" & fTxt & "\" & sTxt) End if Wend

---

Merci pour votre aide

Citation:

---

J'en déduit donc qu'en boulcnat avec le while, il saute une étape. Mais je n'arrive pas a voir laquelle

---

celle-ci:

Code:

---

1 2	fTxt = oTxt.ReadLine sTxt = oTxt.ReadLine

---

(une seule instruction ReadLine par boucle)
tu peux également supprimer dans la boucle cette ligne:

Code:

---

set oFso = CreateObject("Scripting.FileSystemObject")

---