Problème d'objet requis

Bonjour,

Lorsque j'exécute le script suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const DossierPrescriptionsSauvegardees = "l:\INTRANET\ARMAGEDDON\PRESCRIPTIONS\"
'Const DossierPrescriptionsSauvegardees = "d:\_DossierTest\"
 
dim filesys, f
dim rep, sousrep, fichier, tssfichier
 
Set filesys = CreateObject("Scripting.FileSystemObject")
Set f = filesys.GetFolder(DossierPrescriptionsSauvegardees)
wscript.echo "Your folder was created on " & f.DateCreated
 
for each rep in f.subFolders
   wscript.echo "Rep " & rep
 
   sousrep = filesys.GetFolder(rep)
   tssfichier = sousrep.Files      '<---------------------------- erreur --------------
 
   'for each fichier in tssfichier
   '   wscript.echo "   Fichier : " & fichier
   'next
 
Next

J'obtiens maintenant l'erreur suivante :
test.vbs(15, 4) Erreur d'exécution Microsoft VBScript: Objet requis: 'L:\INTRANET\ARMAGEDD'

C'est la ligne 15 qui pose problème, je ne vois pas pourquoi.

Pouvez-vous me dire ce qui cloche ?

Merci.