Parametre dans une fonction

Version imprimable

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:

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

23/04/2007, 12h44
SfJ5Rpw8

manquerai pas un s ...? à arg(0) ?
23/04/2007, 13h58
lephyrexian

Oui effectivement j 'avais oublié le s :p

Merci

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:

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

23/04/2007, 14h47
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 :?
23/04/2007, 14h54
lephyrexian

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

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

Je mets la solution

Code:

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