Discussion :

[lephyrexian]

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

[SfJ5Rpw8]

manquerai pas un s ...? à arg(0) ?

[lephyrexian]

Oui effectivement j 'avais oublié le s :p

Merci

[lephyrexian]

Rebonjour,

J'ai un petit soucis qui persiste. Lorsque je met le chiffre du niombre de jour en dur dans le code cela marche.

Mais lorsque je veux le faire passer en variable j ai l impression qu il ne rentre pas dans la boucle

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
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 = args(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

voila ce que ca donne (voir code ci-dessus)

Merci de votre aide

[SfJ5Rpw8]

il ne faut pas mettre les variables entre "" si tu veux utiliser leur "valeur" et non leur nom ... enlève ces " .. autour de NB_JOUR

[lephyrexian]

je sais mais jai deja essayé sans et ca marche pas il rentre pas dans ma boucle

[lephyrexian]

C'est bon j 'ai trouvé d ou venait mon pb

Je mets la solution

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
Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = (PATH)
   '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
 
   PATH = args(0)
   NB_JOUR = args(1)
 
wscript.echo (args(0))
 
   For Each objFile in fic
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > cint(NB_JOUR) Then
objFSO.DeleteFile f
            end if
    next