Boucle qui teste la présence d'un fichier tous les x secondes

Version imprimable

29/12/2020, 20h05
Marion33

Boucle qui teste la présence d'un fichier tous les x secondes

Bonsoir ! :)

Je suis à la recherche d'un script qui me permets de tester la présence d'un fichier à un emplacement bien précis,

J'ai trouvé ce lien avec la solution mais c'est pour du VB6, j'ai une erreur quand je le test en VBS..

https://www.developpez.net/forums/d1...nce-d-fichier/

Je pense qu'il existe quasiment la même chose en VBS mais je ne trouve nul part..

Pourriez vous m'aider s'il vous plait ?

Merci beaucoup !

Salut

Quelque chose comme cela ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function FileExiste(ChemNom)
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
FileExiste = Cbool(fso.FileExists(ChemNom))
Set fso = Nothing
End Function
 
 
Dim T,X,ChemNomFichier,MsG,NbrBoucle
X= 2000 '2Sc
ChemNomFichier="C:\MesProgs\En VBScript et HTA\rapportt.txt"
NbrBoucle = 4
MsG = "fichier non trouvé après " & NbrBoucle+1 & " boucles"
'Recherche 5 fois (NbrBoucle+1) le fichier toutes les 2 Sc(X)
 
For T = 0 To NbrBoucle
        'vérifie l'existance du fichier
        If FileExiste(ChemNomFichier) Then
                MsG = "Fichier trouvé après "  & ((X/1000)*T) & " Sc"
                Exit For
        End If
        WScript.Sleep X
Next
MsgBox MsG

A compléter si tu veux ne le faire que pour une plage horaire précise.

29/12/2020, 22h09
Marion33

Wahou ! c'est exactement ce que je recherchais....merci beaucoup pour votre réponse rapide et votre travail :D bonne soirée !