Discussion :

[Nabou-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set oFso = CreateObject("Scripting.FileSystemObject")