Bonjour à tous,

Etant debutant et n'ayant pas vraiment trouvé une réponse en cherchant, je vous pose la question :

J'ai plusieurs fichiers log qui contiennent les données de backup de chaque utilisateurs : il contient la date, la taille du backup, le nombre de fois....
La taille du backup dans le fichier est délimitée par des "< >". Par exemple < 700.450>
J'ai commencé par traité un seul fichier pour m'entrainer.
J'effectue une recherche dans le texte et j'arrive à saisir la valeur située entre les <> avec ce code :

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
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("H:\Backup\user1-Backup.log")
 
Do Until objFile.AtEndOfStream
    strData = ""
    strSearchString = objFile.ReadLine
 
    intStart = InStr(strSearchString, "<")
 
    If intStart <> 0 Then
        intStart = intStart + 2
        strText = Mid(strSearchString, intStart, 250)
 
        For i = 1 to Len(strText)
                 If Mid(strText, i, 1) = ">" Then
                Exit For
            Else
                strData = strData & Mid(strText, i, 1) 
 
            End If
        Next
Le résultat de cette opération est stocké dans un fichier texte. ( Est ce la bonne méthode ? ou faut-il stocker temporairement en mémoire ? )
Jusque là je me débrouilles péniblement.
Mais là ou je bloque c'est que je dois effectuer ces opérations sur tous les fichiers présents dans un répertoire et je ne sais vraiment pas comme faire ?


Je dois faire aussi le total de la taille des backup présents dans chaque fichier et placer le résultat dans un fichier texte unique pour les statistiques mais je galère vraiment...
ça veut dire que dois effectuer le premier code en haut pour chaque fichier, faut-il créer une fonction ou un sub pour ce code et l'appeler dans la boucle FOR...EACH ? J'ai vraiment du mal à coder...
Peut-on stocker le résultat de chaque fichier dans une variable ou plusieurs variables et les mettre ensuite dans un fichier unique , je deviens fou, cela fait 3 jours que je galère , je désespere vraiment..

Tous ce que je sais :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Set oFSO = CreateObject("Scripting.FileSystemObject")
      stRep = Dossier
        For Each oFl In oFSO.GetFolder(stRep).Files
       ................ 
       LE CODE POUR 1 FICHIER
       ................
       Loop
Excusez moi s'il y a des fautes ou si je ne suis pas clair, il est 3h30 du mat et je me casse la tete sur le code. En plus ça doit etre fonctionnel pour la fin de la semaine sinon le chef ne va pas être content...

PLEASE AIDEZ MOI SVP