Discussion :

[khamett]

Bonjour,

j'ai une grande partie de mon code dans lequel je vérifie l’existence d'un répertoire.
Mon soucis c'est que ce répertoire peut avoir plusieurs orthographes.
je me retrouve donc avec plusieurs blocs de "IF"

Je voulais donc simplifier: ne garder qu'un seul "if" et mettre toutes les possibilités dans une variable.
Comment faire ?

Merci de votre aide

[Cachlab]

Ce genre de code peut t'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim oFSO, oFld
Dim arrDirectory
Dim RepPath
 
RepPath = "C:\Repertoire_cible\" ' Le répertoire à parcourir
arrDirectory = Array("nom_rep1", "nom_rep2", "nom_rep3", "nom_rep4", "nom_rep5") ' Liste des répertoires à rechercher
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
For each oFld in oFSO.GetFolder(RepPath).SubFolders
If StrInArr(oFld.Name, arrDirectory) Then
'Si le répertoire existe ...
MsgBox oFld.Name & " existe !"
End if
Next
 
Set oFSO = Nothing
Set oFld = Nothing
 
WSCript.Quit
 
Function StrInArr(strIn, arrIn)
	Dim strTmp, boolOut
	boolOut = False
	For Each strTmp In arrIn
	If StrComp(strTmp, strIn, vbTextCompare) = 0 Then boolOut = True
	Next
	StrInArr = boolOut
End Function

[khamett]

Super,
marche impec...