Discussion :

[Angelus1753]

Bonjour à tous !

j'ai un script qui est capable d'afficher le nombre de dossier de n'importe quel répertoire de windows.

ma demande est donc. est il possible de passer ce script en (hta)

et surtout de vocaliser le resultat au lieu de l'écrire.

voici le code, le code est fonctionnel pour ceux que cela intéresse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'*** Definition des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = fSO.GetFolder("C:\Demonstration\Test")
 
'*** Comptage du nombre de Plugin dans le répertoire
CountSubfolders = objFolder.Subfolders.count
 
'*** Affichage du résultat
wscript.echo "Nombre de Plugin = " & CountSubfolders
'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing

[hackoofr]

Dans un HTA éviter surtout la création d'objets ou il y a wscriptExemple ceci Set fso = Wscript.CreateObject("Scripting.FileSystemObject") doit-être remplacé par Set fso = CreateObject("Scripting.FileSystemObject") et aussi le
wscript.echo doit-être remplacé la par un MsgBox

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
'*** Definition des variables d'environnement
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fSO.GetFolder("E:\Test")
 
'*** Comptage du nombre de Plugin dans le répertoire
CountSubfolders = objFolder.Subfolders.count
 
'*** Affichage du résultat
CountSub = "Nombre de Plugin = " & CountSubfolders
MsgBox CountSub
SpeakIt(CountSub)
'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing 
 
Sub SpeakIt(str)
    CreateObject("SAPI.SpVoice").Speak(str)
End Sub

[Angelus1753]

Bonjour et Merci Hackoofr de votre réponse.

votre script fonctionne je confirme

mais pourquoi le (hta)
parce que j'aurais été sur qu'il vocalise le résultats en français. sauf que la il est anglais hélas.
donc pas bon pour moi

[hackoofr]

parce que j'aurais été sur qu'il vocalise le résulta en français. sauf que la il est anglais hélas. donc pas bon pour moi

Tester ce vbscript pour voir si la voix française est-elle bien installé ou non ?

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
21
22
23
24
25
26
27
28
29
Option Explicit
Dim msg, sapi ,Voice,i
Set sapi = createObject("sapi.spvoice")
Set sapi.Voice = sapi.GetVoices.Item(Lang)
sapi.Speak "Bonjour"
For each Voice in Sapi.GetVoices
    i= i + 1
    MsgBox "Index = "& (i - 1) & " - " & Voice.GetDescription
Next
'----------------------------------------------------------------------------------------------------------------
Function Lang()
If Oslang = 1036 Then 
    Lang = 0 
Else
    Lang = 1
End If
End Function
'----------------------------------------------------------------------------------------------------------------
Function OSLang()
    Dim dtmConvertedDate,strComputer,objWMIService,oss,os
    Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
    For Each os in oss
        OSLang = os.OSLanguage
    Next
End Function
'----------------------------------------------------------------------------------------------------------------

[Angelus1753]

voix française installé la voix sapi de virginie

Os Windows 7 64

fonctionne très bien avec votre script d'éxpiration de programme voix en français avec le (hta)

j'ai tésté le script

une nouvelle fois non. voix anglaise...

[hackoofr]

Pouvez-vous poster le code complet de votre HTA ? Nombre_Dossier.hta