problème d'extension dans une condition

Version imprimable

30/05/2017, 21h32
Marion33

problème d'extension dans une condition

Bonjour je vous expose mon bout de code et je vous dis mon problème:

Code:

if j<10 and objFile.size<5000000 and LCase(objFSO.GetExtensionName(objFile.Name)) = "png" then

En fait, j'aimerais prendre en compte plusieus extensions dans LCase(objFSO.GetExtensionName(objFile.Name)), j'ai essayé ("png";"pdf") et encore pas mal de chose mais ça ne marche pas :( La solution doit être simple mais je ne sais pas comment faire ..

je précise que mon script en entier explore tous les fichiers d'un dossier et j'aimerais effectuer ma condition sur plusieurs extensions.

Merci beaucoup pour le coup de patte !!

Salut

Une solution comme une autre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim ArrType
ArrType = "png,pdf,txt,doc,jpg"
TheType = LCase(objFSO.GetExtensionName(objFile.Name))
If j < 10 And objFile.Size < 5000000 Then
    If InStr(1, ArrType, TheType, vbTextCompare) Then
        'les conditions sont remplies
        msgbox "les conditions sont remplies"
        Else
        'le type du fichier ne correspond pas
        msgbox "les conditions ne sont pas remplies"
    End If
End If

Dans ArrType , tu y mes tous les types qui serviront de filtre.

05/06/2017, 19h36
Marion33

Je n'ai pas réussi à faire marcher ta proposition mais je me suis inspiré des doubles conditions pour arriver à mes fins .. je note le sujet comme résolu car j'ai réglé mon problème mais ta solution m’intéresse et j'aimerais bien essayer de la faire marcher :)
05/06/2017, 20h20
ProgElecT

Salut

La variable ArrType contient tous les extensions des fichiers que l'on veut traiter.
La variable TheType contient l'extension du fichier en cours (en minuscule).

La fonction InStr(1, ArrType, TheType, vbTextCompare) renvoie la position de la variable TheType se trouvant dans la variable ArrType,

si TheType a été trouvé dans ArrType, la position renvoyée est plus grande ou égal à 1, donc True (vraie)
si TheType n'a pas été trouvé dans ArrType, la position renvoyée est égal à -1, donc False (faut)

Pour VB, dans une condition, tous chiffres >= 1 est interprété comme un boolean pour valeur égal à True, à l'inverse, si le chiffre vaut -1, VB l’interprète comme False.
If InStr(1, ArrType, TheType, vbTextCompare) Then peut être écrit/détaillé aussi comme cela,
If CBool(InStr(1, ArrType, TheType, vbTextCompare)) = True Then, se qui revient au même.

Pour un seul If ... Then englobant 3 conditions pour ton besoin, cela donne

Code:

If j < 10 And objFile.Size < 5000000 And InStr(1, ArrType, LCase(objFSO.GetExtensionName(objFile.Name)), vbTextCompare) Then
07/06/2017, 18h37
Marion33

Super !! Je comprends bien mieux et j'ai réussi à faire fonctionner ! Un grand merci :zoubi: