Discussion :

[Sekigawa]

Bonjour,

Je réalise un programme qui va me permettre de lister les fichiers d'un repertoire, j'ai une erreur :

Erreur d'exécution Microsoft VBScript erreur '800a01b6'

Cet objet ne gère pas cette propriété ou cette méthode

Voici le morceau de code correspondant et la ligne en gras c'est l'endroit d'où vient l'erreur apparement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
FS = CreateObject("Scripting.FileSystemObject")
F = FS.GetFolder(Server.MapPath(strCheminServeur))
SF = F.Files

Une idée ?

[roro06]

Bonjour

Une idée ?

Oui :

Remplacer

FS = CreateObject("Scripting.FileSystemObject")
F = FS.GetFolder(Server.MapPath(strCheminServeur))

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set FS = Server.CreateObject("Scripting.FileSystemObject")
set F = FS.GetFolder(Server.MapPath(strCheminServeur))

ça devrait rouler

[Sekigawa]

En effet c'était ça, bon j'avais oublié que pour un objet il fallait le mot clé "set"

Merci !