Compter le nombre de dossier et inscrire le résultat dans un fichier txt

Bonjour à tous,
Je sèche depuis plusieurs jours sur ce petit script
Qui permet d’afficher le résultat du nombre de dossier en Message box
Ma question sera, pourrait ton avoir le résultat s’inscrire dans un fichier texte
Merci par avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'*** Definition des variables d'environnement Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = fSO.GetFolder("C:\Intel")   '*** Comptage du nombre de Plugin dans le répertoire CountSubfolders = objFolder.Subfolders.count   '*** Affichage du résultat wscript.echo "Nombre de dossier = " & CountSubfolders '*** Destruction des objets Set fso = Nothing Set objFolder = Nothing   wscript.quit

---

si ton résultat est OK, alors oui, il suffit d'utiliser ton fso pour écrire le résultat dans un fichier

Bonjour umfred,

Merci pour votre réponse, après avoir essayé plusieurs choses et tentatives rien y fait il faut bien dire le VB script me dépasse un peu par moment.
Si vous pourriez éclairer ma lanterne s’il vous plait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'*** Definition des variables d'environnement Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = fso.GetFolder("C:\Intel")   '*** Comptage du nombre de Plugin dans le répertoire CountSubfolders = objFolder.Subfolders.count   '*** Affichage du résultat wscript.echo "Nombre de dossier = " & CountSubfolders   '*** Ecriture du résultat dans un fichier texte Set MyFile = fso.CreateTextFile("c:\testfile.txt", True) ' mettre le chemin et le nom du fichier à créer (il faut avoir les droits d'écriture dans le dossier évidemment) MyFile.WriteLine( "Nombre de dossier dans " & objFolder.Path & " = " & CountSubFolders) MyFile.Close   '*** Destruction des objets Set fso = Nothing Set objFolder = Nothing   wscript.quit

---

Ça fonctionne à merveille, un grand merci à vous umfred.

problème résolus