scoder
Messages postés140Date d'inscriptiondimanche 18 avril 2004StatutMembreDernière intervention20 mars 2006
-
12 juin 2004 à 18:04
scoder
Messages postés140Date d'inscriptiondimanche 18 avril 2004StatutMembreDernière intervention20 mars 2006
-
12 juin 2004 à 22:45
Bonjour,
j'ai plusieurs serveurs et un poste à partir duquel je les gère. malheureusement je suis obligé de surveiller manuellement l'espace disque libre sur ceux ci, afin qu'ils ne soient pas saturés. J'ai donc pensé faire une appli qui m'enverrai un msg lorsque l'espace libre serait trop faible.
j'ai un drivelistbox sur mon form, et j'aimerai savoir comment faire pour récupérer uniquement les infos de mes disques durs, et non des lecteurs cd qui apparaîssent aussi dans le drivelistbox
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 12 juin 2004 à 20:17
Bonsoir scoder,
un tit bout de code qui marche, pour tester, tu colles ça ds une form :
Private Declare Function GetDiskFreeSpaceEx _
Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
( _
ByVal lpDirectoryName As String, _
lpFreeBytesAvailableToCaller As Currency, _
lpTotalNumberOfBytes As Currency, _
lpTotalNumberOfFreeBytes As Currency _
) As Long
Private Sub Form_Load()
' dans projet/références, cocher "Microsoft Scripting Runtime"
Dim fso As FileSystemObject
Dim Drv As Drive, DrvName As String
Dim d As Drive
Dim dc As Drives
Dim st As String
Dim TotalBytes, FreeBytes As Currency
Dim Espace_Libre As String
Dim Espace_Total As String
Dim Pourcentage_Libre As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives