Discussion :

[wayat91]

Bonjour,

J'ai un script qui lit récursivement un répertoire, récupère le timestamp de tous les fichiers, et le tout est envoyé dans un fichier de sortie. Pas de problème, ça fonctionne.
Ce que je ne sais pas faire, c'est comment trier le contenu du fichier de sortie, à savoir que je voudrais faire un tri sur le timestamp (croissant ou décroissant, peu importe).

Mon script:

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
On Error Resume Next
 
TIMESTAMP_REF = "01/01/1970 00:00:00"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
'Fichier de sortie
Set Fic_Modified1 = FSO.CreateTextFile("C:\Temp1\Fic_modified1.txt",True)
 
ShowSubFolders FSO.GetFolder("c:\temp")
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        CONTINENTAL_FOLDER = Subfolder.Path
        Set CONTINENTAL_FILES = fso.GetFolder(CONTINENTAL_FOLDER)
        For Each files In CONTINENTAL_FILES.Files
            DATE_MODIFIED_FILE = files.DateLastModified
            TIMESTAMP_FILE=DateDiff("s",TIMESTAMP_REF,DATE_MODIFIED_FILE)
            Fic_Modified1.WriteLine  TIMESTAMP_FILE & " " & files.Path
        Next
     Next
End Sub
 
 
'le fichier de sortie de sortie est structuré comme suit:
1233071388 C:\temp\oabinteg\oabinteg.exe
1292850353 C:\temp\oabinteg\referentiel_date.txt
1289914222 C:\temp\stinger\stinger.opt
1287778020 C:\temp\tempo\ePOPolicyMigration.exe
 
'Je l'ouvre en séquentiel et voudrais donc trier le premier champ,
'le timestamp étant la référence
Set READ_Fic_Modified1 = FSO.OpenTextFile("C:\Temp1\Fic_modified1.txt", 1,false)
 
Do Until READ_Fic_Modified1.AtEndOfStream
    strNextLine = READ_Fic_Modified1.Readline
    WScript.Echo strNextLine
Loop

Merci par avance.
W

[wayat91]

Bonjour,

En fait, j'ai résolu mon problème en lisant le premier champ de mon fichier de sortie (donc le timestamp) et je compare séquentiellement avec les enregistrements suivants. En fait, je voulais récupérer la valeur la plus grande.
Mais je vais regarder de près :
"Tu colles tes résultats au fur et à mesure dans une liste triée (List1.Sorted = true)"
Bon, maintenant, j'ai un autre problème d'envoi de mail, toujours sous vbs

Merci pour votre aide.

W

[hackoofr]

Bon, maintenant, j'ai un autre problème d'envoi de mail, toujours sous vbs

Salut
Tu peux voir ce Lien pour l'envoi d'un mail avec pièce-jointe en VBScript