Discussion :

[Angelus1753]

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 :

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

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

[umfred]

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

[Angelus1753]

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.

[umfred]

Code :

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

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

[Angelus1753]

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

problème résolus