Menu

Script Dtection Repetoire en VBS [Résolu]

Messages postés
400
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
29 mai 2019
-
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 :

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 !!!
Afficher la suite 

1 réponse

Messages postés
6096
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 juin 2019
370
0
Merci
Bonjour,

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 




mat67000
Messages postés
400
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
29 mai 2019
13 -
Merci beaucoup !

Cela fonctionne mais le script ne reconnait pas la variable %USERPROFILE%, pourtant cela m'est nécessaire.

Comment faire ?
cs_Le Pivert
Messages postés
6096
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 juin 2019
370 -
essaie cela :

MsgBox Environ$("USERPROFILE") & "\Documents\Travail"
cs_Le Pivert
Messages postés
6096
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 juin 2019
370 -
Pour 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
mat67000
Messages postés
400
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
29 mai 2019
13 -
Merci !
Commenter la réponse de cs_Le Pivert