Bonjour a tous,

Voici mon probleme,

J'aimerai passer en parametre le nombre de jour ou les fichiers doivent etre supprimé.

j 'ai codé quelquechose mais ca ne marche pas il me dit arg type invalide

J appelle a votre aide merci

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
Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = FSO.GetFolder ("D:\test")
   Set Dossiers = fso.GetFolder(folder)
   Set fic = Dossiers.Files
 
  'Boucle qui fait la comparaison avec la date du fichier créé et le nombres de jour des fichiers à garder
 
   Set args  = Wscript.Arguments
   NB_JOUR = arg(0)
 
   For Each objFile in fic
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > NB_JOUR Then
            objFSO.DeleteFile f
            end if
    next