Marquer une pause avant de lancer une action

[PrinceMaster77]

Je voudrais marquer une pause de quelques secondes afin que je puisse automatiquemet imprimer des fichiers et les supprimées, mon soucis est que si je ne marque pas de pause mes fichiers sont supprimés alors qu'il ne sont pas encore envoyé à l'impression, voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        Lancement de mes impressions.
        ....
        ....
        ....
 
         'Pause le temps que les fichiers partent en impression
         sleep = 17000
 
         set fs = Server.CreateObject("Scripting.FileSystemObject")
         Set ResumeDemFile=fs.GetFolder(CHEMIN_PDF &"\BonTravaux")
         For Each fileDelete in ResumeDemFile.Files
          set f=fs.GetFile(CHEMIN_PDF &"\BonTravaux\"& fileDelete.Name)
          f.Delete
         Next
         set f=nothing
         set fs=nothing

[Immobilis]

Salut,

Pour ce faire, j'ai opté pour une autre solution consistant à vérifier l'ancienneté de chaque fichier présent dans le repertoire à chaque chargement de la page. Tout fichier âgé de plus de 10 minutes est supprimé.

A+