Bonjour, je cherche actuellement a créer deux listes dans lesquelles sont listés des majs, étant mauvais en scripting voici ce que j'ai déjà réalisé avec l'aide d'un bouquin :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
' Forcer la déclaration des variables
Option Explicit
 
' Déclaration des variables
Dim objFSO, objRep
Dim objReseau
Dim objFSOListing, objFichiersListing, objListing, objDossierListing, objCheminListing
Dim objFSOListingi, objFichiersListingi, objListingi, objDossierListingi, objCheminListingi
 
' Création des objets
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
' Recherche de l'existance du dossier
If objFSO.FolderExists("G:\Patch-XP") Then
        Set objRep = objFSO.GetFolder("G:\Patch-XP")
Else
        Set objReseau = CreateObject("Wscript.Network")
        objReseau.MapNetworkDrive "G:", "\\serv_pcfixe\Applis"
End If
 
' Listing des Patchs XP disponibles
objCheminListing = "G:\Patch-XP"
Set objListing = objFSOListing.CreateTextFile("G:\Patch-XP\Listing.txt", True)
Set objDossierListing = objFSOListing.getFolder(objCheminListing)
Set objFichiersListing = objDossierListing.Files
listing.WriteLine "***** Voici la liste des Patchs XP *****" & objCheminListing
listing.WriteLine ' Saut de ligne
listing.WriteLine "Nom" + vbTab + "Taille" + vbTab + "Date de création"
        For Each FichierListing in objFichiersListing
                listing.WriteLine FichierListing.Name
        Next
listing.Close
 
' Listing des Patchs XP installés
objCheminListingi = "C:\WINDOWS\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}"
Set objListingi = objFSOListingi.CreateTextFile("G:\Patch-XP\Installed.txt", True)
Set objDossierListingi = objFSOListingi.getFolder(objCheminListingi)
Set objFichiersListingi = objDossierListingi.Files
listing.WriteLine "***** Voici la liste des Patchs XP *****" & objCheminListingi
listing.WriteLine ' Saut de ligne
listing.WriteLine "Nom" + vbTab + "Taille" + vbTab + "Date de création"
        For Each FichierListingi in objFichiersListingi
                listing.WriteLine FichierListingi.Name
        Next
listing.Close
 
' Comparaison des fichiers textes
Ce dont je ne suis pas sûr :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 For Each FichierListingi in objFichiersListingi
                listing.WriteLine FichierListingi.Name
        Next
Je n'ai pas très bien compris ce fonctionnement.

Ce qu'il me manque c'est la comparaison des fichiers texte, je dois rechercher une chaine de caratère de type : KBxxxxxx ou x représente un chiffre. Cette chaine de caractère est entouré d'autres caratères à ne pas prendre en compte. Je suis perdu ici. Merci d'avance pour votre aide.