Détecter la présence d'un répertoire commençant par..

Mon code doit détecter la présence d'un répertoire commençant par v2.. dans le cas ou il n'existe pas il l'énonce dans un log qui doit donner son chemin commençant par v... Voila mon bout de code pour le moment. Merci de bien vouloir m'aider.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Set objWshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
 
strUtilisateur = objWshNetwork.username
strDomaine = objWshNetwork.userdomain
strOrdinateur = objWshNetwork.ComputerName
strDateTime = Now()
 
sICALog1 = "\\...\FrameworkDetect_" & strOrdinateur & ".log"
sICALog2 = "C:\FrameworkDetect.log"
 
strFonts = WshShell.SpecialFolders("Fonts")
strWindows = Left(strFonts, Len(strFonts) - 5)
strVersion = "v2*"
 
Const ForAppending = 8
 
strFramework = strWindows + "Microsoft.NET\Framework\" + strVersion
If not fso.FolderExists(strFramework) Then
	strLine = strOrdinateur & "  " & strDomaine
	On Error Resume Next
	If fso.FileExists(sICALog1) Then
		On Error Resume Next
		Set Log1 = fso.OpenTextFile(sICALog1, ForAppending, TristateFalse)
		Log1.WriteLine strLine
		Log1.Close
	Else
		Set Log1 = fso.CreateTextFile(sICALog1, modeECRITURE, TristateTrue)
		Log1.WriteLine strLine
		Log1.Close
	End If
 
	If fso.FileExists(sICALog2) Then
		On Error Resume Next
		Set Log2 = fso.OpenTextFile(sICALog2, ForAppending, TristateFalse)
		Log2.WriteLine strLine
		Log2.Close
	Else
		Set Log2 = fso.CreateTextFile(sICALog2, modeECRITURE, TristateTrue)
		Log2.WriteLine strLine
		Log2.Close
	End If
ELse
	wscript.quit
End if

Pour le moment le * du strversion n'est pas géré.

j'ai pas lu ton code car j'avais déjà un truc du genre, je l'ai adapté vite fait et testé ca donne cà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Fonction récursive sur dossiers/sousdossiers
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\Dossier") 'à remplacer par le dossier à vérifier
 
Sub ShowSubFolders(Folder)
	If Left(Folder.Name,2) = "v2" Then
		Wscript.Echo Folder.Path
	End If
    For Each Subfolder in Folder.SubFolders
        ShowSubFolders Subfolder
    Next
End Sub

enjoy

Merci, c'est parfait!:king: