Script Dtection Repetoire en VBS
Résolu
Bonjour,
Tout d'abord je tiens à préciser que je débute en VBS mais genre au tout début.
Je cherche à faire un script qui me permet de détecter si le répertoire Travail existe dans les Documents d'un utilisateur.
Voici mon script :
Avec ce script, j'ai systématiquement une MsgBox 'Bad' alors que le dossier existe bien sur mon poste de test.
Quelqu'un peut-il m'aider ?
Merci beaucoup !!!
Tout d'abord je tiens à préciser que je débute en VBS mais genre au tout début.
Je cherche à faire un script qui me permet de détecter si le répertoire Travail existe dans les Documents d'un utilisateur.
Voici mon script :
Set FileDir = CreateObject("Scripting.FileSystemObject")
PathDir = "%USERPROFILE%\Documents\Travail"
if FileDir.FileExists (PathDir) then
MsgBox "good"
else
MsgBox "bad"
end if
Avec ce script, j'ai systématiquement une MsgBox 'Bad' alors que le dossier existe bien sur mon poste de test.
Quelqu'un peut-il m'aider ?
Merci beaucoup !!!
1 réponse
-
ContributeurBonjour,
Voir ceci:
http://www.octetmalin.net/windows/scripts/vbscript-creer-un-repertoire-dossier.php
dans cette partie là, tu remplaces par tes MsgBox
'*** On met une condition pour vérifier l'existance du dossier contenu dans la variable "repVERIF". If fso.FolderExists(repVERIF) Then wscript.echo " [ ] Le dossier est déjà présent!!!" Else '*** Si le répertoire n'existe pas, celui-ci sera crée. fso.CreateFolder(repDESTINATION & dossier) wscript.echo " [OK] Le dossier " & repDESTINATION & dossier & " à été créer." End
comme ceci:
'*** On met une condition pour vérifier l'existance du dossier contenu dans la variable "repVERIF". If fso.FolderExists(repVERIF) Then wscript.echo " [ ] BAD!!!" Else '*** Si le répertoire n'existe pas, celui-ci sera crée. wscript.echo " [ ] GOOD" End
-
-
-
ContributeurPour utiliser la variable %USERPROFILE%:
http://www.octetmalin.net/windows/scripts/vbscript-creer-un-repertoire-dossier.php
'http://www.octetmalin.net/windows/scripts/vbscript-creer-un-repertoire-dossier.php '*** Déclaration des variables d'environnement Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Dim dossier : dossier = "Travail" Dim repSOURCE : repSOURCE = "C:\" Dim repDESTINATION : repDESTINATION = WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Documents\Travail") Dim repVERIF : repVERIF = repDESTINATION & dossier '*** On met une condition pour vérifier l'existance du dossier contenu dans la variable "repVERIF". If fso.FolderExists(repVERIF) Then wscript.echo " [ ] Le dossier est déjà présent!!!" Else '*** Si le répertoire n'existe pas, celui-ci sera crée. fso.CreateFolder(repDESTINATION & dossier) wscript.echo " [OK] Le dossier " & repDESTINATION & dossier & " à été créer." End If '*** Destruction des objets Set fso = Nothing
Voilà
@+ Le Pivert -
-
