Discussion :

[Marion33]

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

Code :

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

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 !!

[ProgElecT]

Salut

Une solution comme une autre

Code :

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

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.

[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

[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 :

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

If j < 10 And objFile.Size < 5000000 And InStr(1, ArrType, LCase(objFSO.GetExtensionName(objFile.Name)), vbTextCompare) Then

[Marion33]

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