Problème avec un boucle For Each et une fonction recursive

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème avec un boucle For Each et une fonction recursive

splitef

Bonjour à tous

J'ai un gros problème que j'arrive pas à résoudre alors si vous avez une petite idée se serai cool. Voilà mon problème :

Dans une boucle For Each je parcours des dossiers, dans cette même boucle, je définie une fonction récursive qui va scanner les sous dossier d'un répertoire, mais lorsque je définie cette fonction le débuguer de VBS me signale une erreur de syntaxe.
A mon avis tout est écrit correctement et le problème vient d'autre part, mais je ne sais pas d'où. Je vous joins le code...

Code :

Set ptObj = CreateObject("Scripting.FileSystemObject" )
Set ptDossierMusique = ptObj.GetFolder("E:\Music" )
Set Musique = ptDossierMusique.SubFolders
i = 1
For Each DossierNomLib in Musique
'If DossierNomLib.name <> "Librairie" Then
CheminLib = "C:\Data\Librairie_"& DossierNomLib.name &".txt"
CheminMusique = "E:\Music\"& DossierNomLib.name
Set txtF = ptObj.OpenTextFile(CheminLib,2,1)
Set ptDossier = ptObj.GetFolder(CheminMusique)
Set Fichier = ptDossier.Files
Set Dossier = ptDossier.SubFolders
Function SauveFichier()
For Each Tab2 in Dossier
Set ptDossier = ptObj.GetFolder(Tab2)
Set Dossier = ptDossier.SubFolders
Set Fichier = ptDossier.Files
For Each Tab1 in Fichier
If Tab1.Type = "Winamp media file" Then
ContenueF = ptDossier.Path & "\" & Tab1.name
txtF.WriteLine ContenueF
i = i+1
End If
Next
If Dossier.count <> 0 Then
For Each Tab3 in Dossier
SauveFichier()
Next
End If
Next
End Function
'End If
Next

Merci de votre aide

Amicalement
Splite

Publicité

dividee

:pt1cable:
Définir une fonction dans une boucle, j'ai encore jamais vu ça (en VBS en tout cas).
Définis ta fonction (qui prend un dossier en argument) en-dehors de ta boucle et contente toi de l'appeler depuis ta boucle!

Message édité par dividee le 17-08-2004 à 16:18:15

splitef

merci, c'est vrai que c'est completement con ce que j'ai fais, mais j'ai mis pas mal de temps à m'en rendre compte...
je l'est sortie de la boucle et tout marche impec maintenant !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème avec un boucle For Each et une fonction recursive

Sujets relatifs
[php]problème avec la fonction logique \|\| [resolu]	appel des variables php dans une fonction php
problème passage paramètre pthread_create ?	Problème avec addslashes
Probléme Datatype image avec SQL server 2000	[Access] Arguments de la Fonction IIf
[BCB6] problème de conversion de couleur hexa	Problème de session
Problème d'Envoi de Résultats d'un Formulaire
Plus de sujets relatifs à : Problème avec un boucle For Each et une fonction recursive

Page générée en 0.046 secondes