Discussion :

[Commodore]

Salut la compagnie des Excelmen (edit: excelwomen ?)

voici mon problème du jour...
J'essaie de parcourir les fichiers d'un dossier précis à l'aide d'un FileSystemObject. Pratique habituelle, mais une erreur à dû se glisser quelque part et je n'arrive pas à la débusquer... (sans doute une de ces erreurs stupides qui font galérer des heures)

bref, voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim FSO As Object
Dim lesDossiers, lesFichiers, Dossier, Fichier
Dim lesDrives, Drive
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Chemin = "I:\Achat_Database\INVENTOR\Récap\"
Dossier = FSO.GetFolder(Chemin)
 
For Each Dossier In lesDossiers.SubFolders
    MsgBox Dossier.GetFolderName
Next Dossier

L'erreur obtenue est 'Objet requis' sur la ligne suivante

Code :

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

For Each Dossier In lesDossiers.SubFolders

Cherchez l'erreur

[ouskel'n'or]

Regarde là, tu as divers exemples

[Commodore]

merci

résolu