recherche fichiers ds chemin conserve que type precis

Question

alors voilà le pb :

j'aimerai en connaissant le chemin du disque

rechercher dans ce chemin l'existance d'un fichier d'une extension precise contenu dans un textbox

mais voilà j'aimerai faire genre :

for each fichier de ce chemin 
   type=fso.getextensioname 
   if type=txttype.text then
   et bref apres il me copy ca dans un chemin precis qui est un autre probleme lol
   
en fait c du filesystemobject que je souhaite et non que je dois utiliser mais je n'y arrive pas

le probleme est en fait faire une boucle correspondant au nombre de fichier du chemin et dans cette boucle recuperer l'extension de chaque fichier et la comparer a l'extension contenu dans mon text box si c identique je copie ce fichier dans un chemin precis

je vous remercie tous !!!

crenaud76 · Answer

Sans FSO, ca donne ca :


Dim F as string,Rep as string

Rep = txtRepertoire.Text
F = Dir(Rep & "\*." & txttype.Text)
While F <> ""
  FileCopy Rep & "" & F, "c:	emp"
  F = Dir
Wend

Christophe R.

Recherche fichiers ds chemin conserve que type precis

1 réponse

Discussions similaires