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
| Dim MyFolder
Dim Nombre
Dim objFso
Dim code_retour
code_retour = 0
MyFolder = WScript.Arguments.Named("f")
'WScript.echo MyFolder
Nombre = WScript.Arguments.Named("t")
'WScript.echo Nombre
Set objFso = CreateObject("Scripting.FileSystemObject")
'On vérifie l'existence du répertoire. Si celui-ci n'existe pas le script renvois une alerte critique.
If not objFso.FolderExists(MyFolder) Then
WScript.echo "Le répertoire n'existe pas"
Code_retour = 2
Else
' Si le répertoire existe, le scripte vérifie si le nombre de fichier n'est pas dépassé.
' Et envoit une alerte critique si le nombre est dépassé.
If objFso.GetFolder(MyFolder).Files.Count >= CInt(Nombre) Then
WScript.echo "Nombre de fichiers dépassé!!"
code_retour = 2
Else
WScript.echo "R.A.S"
code_retour = 0
End If
End If |
