Erreur de script

Erreur de script - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2009 à 15:44:03    

Bonjour,  
 
Je souhaite connaitre la taille du dossier "bureau", j'ai donc fait le script suivant, mais ça me retourne l'erreur suivante
 
Erreur : Objet requis: '[string: "C:\Documents and Set"]'
 

Code :
  1. Set WshShell = WScript.CreateObject("WScript.Shell" )
  2. Set oFs=CreateObject("Scripting.FileSystemObject" )
  4. set oPath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%" ) & "\Bureau"
  5. Set oFolder=oFs.GetFolder("%oPath%" )
  7. WScript.Echo oFolder.Size


 
C'est la première fois que je vais du vbs et je suis un peu perdu. :sweat:  
 
Pourriez-vous m'aider ?
 
Merci

Reply

Marsh Posté le 05-02-2009 à 15:44:03   

Reply

Marsh Posté le 05-02-2009 à 17:23:02    

Il faut noter le numéro de ligne concerné dans le message d'erreur.
Ici, c'est la ligne 4.
oPath n'est pas un objet mais une chaine de caractère. Donc il ne faut pas mettre "Set".
Il y a une autre erreur sur la ligne qui suit.
Voici une version sans bug :

Code :
  1. Set WshShell = WScript.CreateObject("WScript.Shell" )
  2. Set oFs=CreateObject("Scripting.FileSystemObject" )
  3. sPath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%" ) & "\Bureau"
  4. WScript.Echo sPath
  5. Set oFolder=oFs.GetFolder(sPath)
  6. WScript.Echo oFolder.Size


Reply

Marsh Posté le 05-02-2009 à 18:31:29    

Génial :)
Je te remercie pour ta réponse claire et rapide.


Message édité par antolionux le 05-02-2009 à 18:35:29
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed