Discussion :

[christophe étudiant]

Bonjour
Je suis débutant en Windev et j'aurais besoin d'aide.
Mon problème est que je veux sélectionnner tous les fichiers images d'un dossier, mais que je ne connais pas le nom et le format de l'image.
Je voulais utiliser la fonction fListeFichier mais si j'ai bien compris, soit je dois préciser l'extension du fichier (*.jpg par exemple), soit je précise juste "*" comme extension mais alors il va aussi sélectionner d'autres fichiers que les images (texte par exemple), ce que je ne souhaite pas.
Je voudrais qu'il sélectionne tous les fichiers au format image (*.bmp; *.dib; *.jpg;*.jpeg;*.jpe;*.jfif; *.gif; *.tif;*.tiff;*.png)
au final, il n'y aura qu'une image (sLe Fichier) dans le dossier donc ce que j'avais fait c'était:
sLefichier = fListeFichier("C:\Monrepertoire\"+"*", frRécursif+frInterruptible)
j'ai essayé de mettre plusieurs types d'extension à la place de * mais ça ne marche pas.
Je ne sais pas si c'est clair .
Quelqu'un peut-il m'aider??
Merci

[Jannus]

Bonjour,

Tout d'abord merci de nous préciser la version exacte de Windev

Ensuite, fListeFichier() appelle une procédure (cf l'aide et la syntaxe)
Donc, le CODE est erronné.

Quel est le but précis ?
Choisir un fichier ou effectuer des opérations dessus ?

[christophe étudiant]

Bonjour
La version utilisée est Windev 12
En ce qui concerne le code erroné, je ne sais pas parce que si je mets une photo dans le repertoire au format jpg, et que je fais :

Code :

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

1
2
3
sLefichier =  fListeFichier("C\Monrepertoire\"+"*.jpg", frRécursif+frInterruptible)
IMG_Image1 = sLefichier
fCopieFichier(IMG_Image1,"D:\imageaimprimer\img001.jpg")

je retrouve bien la photo renommée "img001.jpg" dans D\imageaimprimer\".

Sachant qu'au final, je n'aurais qu'une image ds Monrepertoire puisqu'à chaque fois je la supprime, le seul soucis c'est que je ne connais ni son nom ni son format donc pour la sélectionner j'ai des difficultés.

Voila sinon j'ai regardé dans l'aide mais je n'ai pour l'instant pas trouvé de solution.

Sinon je pensais faire une boucle à la place, mais je voulais d'abord voir s'il n'y avait pas une solution plus simple avec une fonction de Windev.
De plus, je suis débutant en Windev donc j'apprends sur le tas.
Merci de votre aide.

[Jannus]

Comme je le disais, fListeFichier() appelle une procédure (WD9)

<Résultat> = fListeFichier(<Chemin et nom générique des fichiers>, <Nom de la procédure> [,<Pointeur>])

<Résultat> : Entier = Nombre de fichiers listés.

Donc je ne vois pas comment ton code peut fonctionner correctement.
Il y a peut-être une nouvelle syntaxe sous WD12, mais si c'est le cas, je ne saurais pas t'aider.

[christophe étudiant]

bonjour
suite à vos précédentes remarques et apres renseignements de ma part: <résultat> est une chaine de caractere

sinon j'aurais une autre question: comment supprimer tout le contenu d'un répertoire, sachant qu'on ne connait pas le nom et le type de dossiers qui y sont. Je précise que je ne veux pas supprimer le répertoire, mais seulement son contenu.

Merci de votre aide

[Gilles_69]

Il te faut au préalable récupérer les noms de fichier avec fListeFichier (exemple de l'aide ci-dessous, avec transfert dans une table mémoire).

Code :

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

1
2
3
4
5
6
7
8
9
10
 
UnFichier, ResListeFichier sont des chaînes
// Liste les fichiers de type ".BMP" présents dans "C:\MesDocuments".
// Le parcours se fait également dans les sous-répertoires et est interruptible. 
ResListeFichier = fListeFichier("C:\MesDocuments\*.bmp", frRécursif+frInterruptible)
// Pour chaque fichier trouvé
POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC
   // Ajout du fichier dans la table TableFic
   TableAjoute(TableFic, UnFichier)
FIN

Au final tu lis ta table mémoire et tu supprimes avec :
fSupprime(<adresse+fichier.extension>)

A+