Discussion :

[jeruzalem]

Bonjour ,

Voila mon probleme, j'essaye de ranger des photos dans des repertoires definis
en faisant un fListeFichier

Resfichier5xxx = fListeFichier("N:\ftp\Photos\*", "Listfich5x")
Resfichier6xxx = fListeFichier("N:\ftp\Photos\*", "Listfich6x")
Etc...

Il les ranges ansuite dans des sous repertoires:
N:\ftp\Photos\5xxx
N:\ftp\Photos\6xxx
N:\ftp\Photos\7xxx
etc...

Pour deplacer les fichiers, pas de souci tout marche comme il le faut... Parcontre le traitement (long) liste aussi les sous repertoires a chaque commande fListeFichier.

Ma question, comment faire pour qu'il ne liste que le repertoire "\Photos\" et pas ces sous repertoires.

Je crois que j'ai tout essayer :
Resfichier5xxx = fListeFichier("N:\ftp\Photos\*.*", "Listfich5x")
Resfichier5xxx = fListeFichier("N:\ftp\Photos\.", "Listfich5x")
Resfichier5xxx = fListeFichier("N:\ftp\Photos\*.jpg", "Listfich5x")

Mais toujours le meme resultat

Merci d'avance pour votre aide.

[JPDMJC]

Salut,
regardes le prototype de la procédure appelée par fListeFichier :
Procédure <Nom de la procédure> (<Chemin>, <Nom du fichier>, <Change>, <Pointeur de la procédure>)

la variable Change indique si tu viens de changer de répertoire, et donc de passer au moins dans le premier sous-répertoire du répertoire que tu voulais.
Dès que tu détectes ce changement, arrête fListeFichier en faisant un "renvoyer faux", àa donnera un code genre : "si Change = flRépertoire alors renvoyer faux"
Résultat du match : fListeFichier devrait s'arrêter dès l'entrée dans un sous-répertoire.
Pas testé mais ça devrait le faire.

[jeruzalem]

Merci de ton aide, Malheureusement il ne range meme plus mes photos . J'ai bien rajouter en fin de procedure Si Change....
mais bon...

Voici Ma procedure:

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
17
18
19
20
21
22
23
PROCEDURE Listfich5x(Repertoire, Nom, Change)
SI Gauche(Nom,6) = "0-0-58" ALORS
ResCopieFich58 est un booléen
 
	ResCopieFich58 = fCopieFichier (Repertoire+Nom,"N:\ftp\Photos\58xx")
	SI ResCopieFich58 = Vrai ALORS
		ResSupprimer01 est un booléen = fSupprime(Repertoire+Nom)
	FIN
 
FIN
SI Gauche(Nom,6) = "0-0-59" ALORS
	ResCopieFich59 est un booléen
 
	ResCopieFich59 = fCopieFichier (Repertoire+Nom,"N:\ftp\Photos\59xx")
	SI ResCopieFich59 = Vrai ALORS
		ResSupprimer02 est un booléen = fSupprime(Repertoire+Nom)
	FIN
 
FIN
SI Change = flChangeRépertoire ALORS
	RENVOYER Faux
FIN
RENVOYER Vrai

Du coup plus rien... Mais ça m'as l'air d'etre sur la bonne voie...

[jeruzalem]

C'est bon j'ai trouver ^^

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
17
18
19
20
21
22
23
PROCEDURE Listfich5x(Repertoire, Nom, Change)
SI Change <> flChangeRépertoire ALORS
	SI Gauche(Nom,6) = "0-0-58" ALORS
		ResCopieFich58 est un booléen
 
		ResCopieFich58 = fCopieFichier (Repertoire+Nom,"N:\ftp\Photos\58xx")
				SI ResCopieFich58 = Vrai ALORS
			ResSupprimer01 est un booléen = fSupprime(Repertoire+Nom)
		FIN
 
	FIN
	SI Gauche(Nom,6) = "0-0-59" ALORS
		ResCopieFich59 est un booléen
 
		ResCopieFich59 = fCopieFichier (Repertoire+Nom,"N:\ftp\Photos\59xx")
		SI ResCopieFich59 = Vrai ALORS
			ResSupprimer02 est un booléen = fSupprime(Repertoire+Nom)
		FIN    
	FIN
RENVOYER Vrai
SINON 
	RENVOYER Faux
FIN

Avec ça il reste juste dans le repertoire en cours!!!
En tout cas merci.