Discussion :

[noahline]

bonjour

je pose mon pb

je dois surveiller un répertoire
dans ce répertoire des données arrivent par paquet et repartent dans les 2 ou 3 minutes
ce répetoire doit le plus souvent être vide
je souhaite tester si le dossier est vide et si il ne l'est pas
faire un controle sur les données arrivées et si ces données restent un certain temps disons 5 minutes (cela signifie que le systeme de transfert est en panne) une action sera lancé (alerte)

si quelqu'un a des idées. car je suis en panne et un peu novice.
je ne demande pas que l'on me donne le script clé en main
mais des idées sur le test du dossier vide et le controle sur les données si elles sont présentes un certain temps.

pour schematiser
voila ce que recherche

ce dossier est il vide?
si oui alors je reteste si il est vide
si non
alors qu' y a t'il dans ce dossier?
il y a ces datas.
ok j'attends 2 minute
2 minutes plus tard y a t'il encore ces datas?
si non ce dossier est il vide?
si oui
ok j'attends 2 minute
2 minutes plus tard y a t'il encore ces datas?
si non ce dossier est il vide?
si oui
ok j'attends 2 minute
2 minutes plus tard y a t'il encore ces datas?
si non ce dossier est il vide?
si oui
alors action d'alerte+enregistrement dans 1 log
puis reprise du test initial "ce dossier est il vide?"

noahline

[noahline]

et bien personne ne semble inspiré pour m'aider

j'ai reussi à faire mon controle sur mon dossier
maintenant je ne sais pas comment le répéter et quel critere utilisé pour lancer une alerte
j'ai essayer en lancant un *.cmd externe au script pour qu'il repete le script
mais j'arrive avec une boucle qui m'affiche sans fin des fenêtres cmd
j'ai essayé de mettre un temps d'attente mais ç change pas grand chose
bon voila mon script
si quelqu'un peux m'aider

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
On Error Resume Next
Dim stRep,oFSO,oFl,f,f1,folder,Taille,oF2
 
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
stRep = "d:\test\testlist"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Taille = oFSO.GetFolder(stRep).size
                If Taille = 0 Then
                        'MsgBox "Dossier Vide"
                        Set f = oFSO.OpenTextFile("d:\test\log\vide.txt", ForWriting,true)
                        f.writeLine Now
                                If oFSO.FileExists ("d:\test\log\Dossiers.txt")Then
                                        oFSO.DeleteFile "d:\test\log\Dossiers.txt",True
                                End If
                                If oFSO.FileExists ("d:\test\log\Fichiers.txt")Then
                                        oFSO.DeleteFile "d:\test\log\Fichiers.txt",True
                                End If
wscript.Sleep 60000 ' durée en ms .. 60000 => 600 s
WshShell.Run("d:\test\Lanceur.cmd")
                Else
                        For each oFl in  oFSO.GetFolder(stRep).SubFolders
                                Set f = oFSO.CreateTextFile("d:\test\log\Dossiers.txt", ForWriting,true)
                                f.writeLine oFl.Name
                        Next
                        For each oF2 in  oFSO.GetFolder(stRep).Files
                                Set f1 = oFSO.CreateTextFile("d:\test\log\Fichiers.txt", ForWriting,true)
                                f1.writeLine oF2.Name
                        Next
 
                End If
wscript.Sleep 120000 ' durée en ms .. 120000 => 120 s
WshShell.Run("d:\test\Lanceur.cmd")

[pitchalov]

Pour répéter une action, si ton script ne doit jamais s'arrêter, tu peux la mettre dans une boucle infinie (mais je pense qu'il faut toujours garder un moyen de sortir proprement) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
boolStopBoucle = False
Do While boolStopBoucle = False
  If ... Then
    ...
    WScript.Sleep 6000
  Else
    ...
    WScript.Sleep 12000
  End If
  If (Evènement de sortie du script) Then
    boolStopBoucle = True
  End If
Loop