Discussion :

[drinkmilk]

bonjour,

je souhaite récupérer la liste des fichiers d'extension ".doc" dans un répertoire.

voilà ce que j'ai essayé de faire:

Code :

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

1
2
3
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
 
strFile = ObjFSO.GetFileName(strPathAndFileName)

avec strPathAndFileName = "c:\chemin_repertoire\*.doc"

Tout ceci est dans une boucle. La condition de sortie est: strFile = ""


mais ça ne marche pas. Quelqu'un a une idée ?

[malbaladejo]

Parcours tous les fichiers de ton répertoire et teste si le nom du fichier se termine par .doc.

Code :

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

1
2
3
4
5
6
7
8
Dim fso, fd,f   
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetFolder("c:\chemin_repertoire\")
For each f In fd.Files
    If Right(f.Name,"4") = ".doc" Then
 
    End If
Next

[drinkmilk]

Nickel ! Merci bien !

[alexixlebaulois]

Salut,

j'ai essayé ton code parce qu'il correspond à ce que je cherche mais ça ne marche pas chez moi. La page ne fait que charger pendant 3 plombe sans s'arrêter. Elle bloque sur l'instruction GetFolder(). Est-ce que tu sais d'où ça vient ?

[malbaladejo]

tu es sure que le dossier que tu veux lister existe ?

[alexixlebaulois]

Oui il existe, j'utilise même la fonction mappath. Ce qu'il y a c'est que même les fonctions de création de fichier, de répertoire, etc... foirent.

[malbaladejo]

J'ai déjà utilisé ce code et il fonctionne.
C'est peut être un probleme de droit d'acces sur le repertoire.

[alexixlebaulois]

Dans ce cas là c'est un problème d'accès à tout mon PC, ce qui me paraît impossible...

[malbaladejo]

Je n'ai jamais rencontré de probleme avec GetFolder.
Je ne sais plus quoi te dire pour t'aider.

Peut être qu'il y a beaucoup répertoires et que l'objet met beaucoup de temps à les parcourir.
Peut etre que le probleme est à un autre niveau, ....

Désolé de ne pas t'avoir plus aider.

[alexixlebaulois]

Je te remercie quand-même. C'est peut-être un problème de configuration du service IIS ou une connerie dans le genre...

[CATTEAU]

Depuis une mise à jour de XP pro

je ne sais pas exactement le problème, mais c'est sur l'utilisation de .GetFolder que ca mouline. Et pour mouliner, ca mouline !

[CATTEAU]

J'ai trouvé !

http://groups-beta.google.com/group/microsoft.public.fr.devinternet/browse_thread/thread/1e94227ceb4df54a/8fb9b611b07d6b98?q=getfolder+probl%C3%A8me+xp&_done=%2Fgroups%3Fq%3Dgetfolder+probl%C3%A8me+xp%26&_doneTitle=Back+to+Search&&d#8fb9b611b07d6b98

en fait c'est Norton qui déconne (enfin chez moi)

Tu dois avoir Norton Anti Virus sur ton pc, c'est lui qui
bloque ton scrit car il croit que c'est un virus
puisqu'il accède au fichier. Pour cela il faut dans
norton désactivié le blocage de script.