Discussion :

[Invité(e)]

Bonjour,

Dans le cadre d'une application de gestion d'images, j'ai une fonction qui recherche les images dans un dossier particuler.
Actuellement, seuls les jpg sont gérés donc la fonction est :

Code :

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

1
2
3
4
5
6
7
8
strfic = Dir(Dossier & "\*.jpg", vbNormal)
If strfic = "" Then
 [...]
End If
Do While strfic <> ""
[...]  
  strfic = Dir()
Loop

Je dois modifier cette fonction (entre autres) pour qu'elle ouvre également les wmf et les emf. Je n'ai pas trouvé quelle syntaxe donner à Dir, donc si vous pouviez m'éclairer. D'avance merci.

[jmfmarques]

Tu peux (un exemple se trouve dans l'aide en ligne) ajouter toutes les extensions que tu veux, y compris avec "jokers"

[Invité(e)]

Merci, mais je n'ai pas trouvé de tel exemple dans l'aide, quelle syntaxe dois-je mettre dans la fonction ?
J'ai essayé strfic = Dir(gstrDossier & "\*.jpg,*.emf", vbNormal)
et strfic = Dir(gstrDossier & "\*.jpg;*.emf", vbNormal)
mais ça ne fonctionne pas.

[jmfmarques]

Ne trouve plus, mais bon :
utilise *.* et élimines ceux qui ne sont pas bmp, jpg, etc... dans ta boucle, tout simplement !

[malhivertman1]

Bon je n'ai jamais essayé ça mais test

Code :

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

Dir(gstrDossier & "\*.jpg" or "\*.emf"

ou qqch dans le style.
Enfin je n'est jamais travaillé la dessus, c'est juste une idée

[Invité(e)]

Merci à vous deux.

Pour
Dir(gstrDossier & "\*.jpg" or "\*.emf"ça me renvoie un booléen, donc j'ai une erreur de type à l'excécution

et remplacer par *.*, j'y avais pensé mais ça complique pas mal le code suivant car j'ai besoin de faire ça à pluseurs endroits. Je pense que c'est possible donc je continu de chercher.

[Elstak]

coucou,

j'ai pas super bien compris, tu veux trouver toutes les images d'un dossier?
tu connais toutes les extensions qui peuvent etre prises par les images?

jpropose un truc sans conviction

tu nous fait une procedure du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public sub trouverimage(byref nom as string)
 
strfic = Dir(Dossier & nom, vbNormal)
If strfic = "" Then
[...]
End If
Do While strfic <> ""
[...] 
strfic = Dir()
Loop
 
end sub

et hop tu l'appele avec en parametre "\*.jpg" puis tous ceux que tu veux. Non?