Discussion :

[Casimir*]

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.

[ced600]

Est ce tout le code que tu as écris parce que "listing" n'est ni déclaré en tant que variable, ni instancié (cela semble être un objet).
Ne sachant pas ce qu'est listing je ne peut pas te dire ce que fait :

Code :

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

listing.WriteLine FichierListingi.Name

Je suppose que cela écrit le nom du fichier quelque part.

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.

Pour cela il faut bien récupérer le nom des fichiers comme tu le fait. Puis il faut "décortiqueré ce nom à l'aide desfonctions de chaines de caractères ou d'expression régulière. Tout cela se trouve dans la faq ou dans les tutoriaux, je te laisse chercher .
Les expressions régulières seront plus adaptés à ton cas, surtout si ton nombre de chiffres est variable.
Bon courage .

[Casimir*]

Il faut donc déclarer ?

FichierListingi

Je veux lister les fichiers d'un répertoire dans un fichier Texte,, faut il la déclarer ?
Merci.

[ced600]

Heu... Je te conseille par commencer de lire la faq et de faire des tutoriaux.