Connaitre le pourcentage d'espace libre d'un disque

Bonjour

J'aimerais connaitre le pourcentage d'espace libre d'un disque à partir du nom d'un fichier.

C'est mon premier script en vbs et voila ce que j'ai fait:

Code:

---

1 2 3 4 5 6

Set objetFSO = CreateObject("Scripting.FileSystemObject") Set Fichier = objetFSO.GetFile("C:\Documents and Settings\X084736\Bureau\temp.txt") Wscript.Echo Fichier.Drive Set objetFSO2 = CreateObject("Scripting.DriveSystemObject") Set Lecteur = objetFSO.GetDrive(Fichier.Drive) Wscript.Echo objetFSO.AvailableSpace

---

J'ai quelques questions:

- Avec ce code j'ai l'erreur suivante: Un composant Activx ne peut pas créer un objet: 'Scripting.DriveSystemObject' et je ne comprends pas pourquoi !
- J'aimerais que le résultat soit écris sur la sortie standard et non dans une fenêtre popo ! quelle méthode ?
- J'aimerais passé le nom du fichier en parametre dans la ligne de copmmande

Merci d'avance pour votre aide

Seb

Citation:

---

Avec ce code j'ai l'erreur suivante: Un composant Activx ne peut pas créer un objet: 'Scripting.DriveSystemObject' et je ne comprends pas pourquoi !

---

Cela ne marche pas chez moi non plus, et je ne trouve qu'un seul site qui propose d'utiliser cet objet. Mais aucune autre information sur DriveSystemObject, à croire que le site en question à inventer n'importe quoi.
Il est probable que l'objet utilise un controle activeX particulier que tu n'as pas, mais va savoir lequel.
Apparement tu pourrais faire la même chose avec les API WMI (Win32_LogicalDisk) mais j'ai essayé chez moi, et si je peux avoir la taille du disque, le paramètre Availbility ne contient aucune info. Cela dépend peut être des machines.

Citation:

---

J'aimerais que le résultat soit écris sur la sortie standard et non dans une fenêtre popo ! quelle méthode ?

---

Celle que tu as utilisé !
Echo envoie vers la sortie standard.
La sortie standard de Wscript est une popup. Utilise Cscript, sa sortie standard est une console.
W = Windows et C = Console ;)

Citation:

---

J'aimerais passé le nom du fichier en parametre dans la ligne de copmmande

---

FAQ VBScript

J'ai pu avancé :lol:

Code:

---

1 2 3 4 5 6 7 8 9 10

Set arguments = WScript.Arguments Set objetFSO = CreateObject("Scripting.FileSystemObject") Set Fichier = objetFSO.GetFile(arguments(0))   Set oFSO = CreateObject("Scripting.FileSystemObject") Set oDrv = oFso.GetDrive(Fichier.Drive)   pct = (oDrv.TotalSize - oDrv.FreeSpace) / oDrv.TotalSize   wScript.echo pct

---

Mais je n'arirve pas à ecrire sur la sortie standart de la console: cscript.echo ne marche pas !

seb

autant pour moi j'ai dit n'importe quoi.

Si tu laisses Wscript.echo dans ton code, et que tu lance en ligne de commande ton script comme suit :

Code:

---

cscript le_script.vbs

---

L'affichage se fera sur la console.

voir aussi :
Comment changer l'interpréteur de script par défaut ?