Sujet Précédent Sujet Suivant

ESPACE DISK DISPONIBLE

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007 - 28 juil. 2003 à 09:08
gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004 - 2 août 2003 à 01:03

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8062-espace-disk-disponible

gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004
2 août 2003 à 01:03

ou ca pour arrondir le nombre
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (round(f / 1000000000, 2) & " Go")
Next

gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004
2 août 2003 à 01:01

il y a une facon plus courte et plus simple d'avoir l'espace libre je croit :
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (Left(f / 1000000000, 5) & " Go")
Next

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007
1 août 2003 à 22:33

C'est klr Brunews. Les lignes INVOKE interminables ne correspondent pas à l'esprit ASM pur. Rien ne vaut les formulations comme à l'époque du 16bits lool. Perso je rejette en block toutes ces facilités préférant les CMP aux IF.ELSEIF.END. Le fun est sans doute de coder sans aucunes inclusions en se référant seulement à LoadLibrary pour les log des API. C'est un sujet passionant.
Désolé pour les autres, je sais que ce 'est pas la place pour parler ASM. ++

cs_AlexKid Messages postés 10 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 31 juillet 2003
1 août 2003 à 16:33

Ps : Merci BruNews pour ta dll sympa

++

cs_AlexKid Messages postés 10 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 31 juillet 2003
1 août 2003 à 16:31

oula les gas c pas de mon niveau vos discussion, j comprend que dalle !! lol Sortit de mon petit vb ca vole pas haut : MASM, haut niveau, ca maitrise la prog !!!

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
1 août 2003 à 16:27

Salut Stormy, vois que j'ecris l'asm depuis longtemps sur MASM mais JAMAIS je n'utilise les structures haut niveau qui sont une abherration de mon point de vue, sinon effectivement autant ecrire en C.
Bonne prog.

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007
1 août 2003 à 16:15

Brunews loool le prends pas mal et continue ta bataille contre le lambinage.

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007
1 août 2003 à 16:11

L'assembleur brut est plutôt chaud c vrai. Mais sous Masm, ca prends des allure de C dans la structure (pas le code bien sur) par moment. Faut voir. Moi je code mes applications serveurs en ASM et les client en VB pour faciliter le travail. Encore une fois si tu veux des renseignements, call me.
StormyTeam@free.fr

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
29 juil. 2003 à 09:16

http://www.vbfrance.com/article.aspx?Val=9896
Si tu as question ou proposition d'extension, ne pas hesiter a demander.
ciao...

cs_AlexKid Messages postés 10 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 31 juillet 2003
29 juil. 2003 à 08:27

Salut a tous merci pour vos commentaires c sympa :)

BruNews elle est ou tta dll que je la test
Stormy ca a l air chaud l assembleur non ?

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
28 juil. 2003 à 22:06

Ben c'est juste le cas. Le drole de type vous fournit une dll (asm) pour donner un peu de nerf a vb. Celui qui n'en veut pas peut continuer a lambiner sans en degouter les autres.

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007
28 juil. 2003 à 21:54

La vitesse au rendez vous. ptdr. Passe à l'assembleur alors et laisse tomber VB. Il y a kan même de drole de type ici... ++

Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
28 juil. 2003 à 20:50

Moi j'préfère les bons vieux scripts .. lol ... mais bon comme ce qui compte c'est d'arriver au résultat, alors ta src est bin !!

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
28 juil. 2003 à 09:40

Sers toi de ma DLL plutot que de charger l'inrepreteur de script, la vitesse sera au rdv.

cs_Stormy Messages postés 255 Date d'inscription samedi 20 avril 2002 Statut Membre Dernière intervention 16 janvier 2007
28 juil. 2003 à 09:08

Intéressant. Je te donne une correspondance simple en VBS pour obtenir l'espace dispo sur le HD si cela peut aider quelqu'un:

strComputer= "."
Const HARD_DISK = 3
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!" & strComputer & "
ootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
Wscript.Echo "Free Disk Space on " & objDisk.DeviceID & _
(round((objDisk.FreeSpace/1000000000),2)) & " Go"
Next

Merci Alex kid (toute ma jeunesse sur SEGA Master System)

Discussions similaires

comment résoudre le probléme de l' erreur "La ressource demandée () n'est pas di

mailto associé à un bouton

trouver un espace dans une chaine de caractère

definition plan dans l'espace

shellexecute mailto vers plusieurs adresses email

Votre réponse

Discussions similaires