Script Dtection Repetoire en VBS
Résolu
mat67000
Messages postés
418
Statut
Membre
-
mat67000 Messages postés 418 Statut Membre -
mat67000 Messages postés 418 Statut Membre -
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 !!!
A voir également:
- Script Dtection Repetoire en VBS
- Vbs windows - Accueil - Optimisation
- Script vidéo youtube - Guide
- Ghost script - Télécharger - Polices de caractères
- Mas script - Accueil - Windows
- Script cmd - Guide
1 réponse
Bonjour,
Voir ceci:
http://www.octetmalin.net/windows/scripts/vbscript-creer-un-repertoire-dossier.php
dans cette partie là, tu remplaces par tes MsgBox
comme ceci:
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
Cela fonctionne mais le script ne reconnait pas la variable %USERPROFILE%, pourtant cela m'est nécessaire.
Comment faire ?
MsgBox Environ$("USERPROFILE") & "\Documents\Travail"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 = NothingVoilà
@+ Le Pivert