Discussion :

[Ptit Dark]

Salut à tous,

Je cherche à tester l'existence d'un répertoire citrix dans c:\program files

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell") 
strProgdir = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") 
 
if WshShell.FolderExists(strProgdir&"\citrix") then
Wscript.echo "citrix existe"
else
Wscript.echo "citrix existe pas"
end if

et que mon répertoire existe ou pas, j'ai toujours la même réponse : "Citrix existe"
Je ne vois pas du tout la boulette que j'ai faites...

HELP please HELP

[Thulkash]

Code :

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

WshShell.FolderExists(strProgdir&"\citrix")

Cette fonction n'est pas géré par ton WshShell. Tu dois rajouter

Code :

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

Set objFSO = CreateObject("Scripting.FileSystemObject")

et modifier la ligne de ton code que j'ai cité par :

Code :

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

objFSO.FolderExists(strProgdir&"\citrix")

Bonne journée.

[Ptit Dark]

Ah ça se confirme, je suis bel et bien blond

Merci beaucoup Thulkash