INFOS SYSTEME

'petite application pour avoir des info systeme
'****************Sp@ce*************************
'pardonnez moi mon français :-)


Option Explicit
'On declare une variable objet
Public fso As New FileSystemObject

Private Sub cmdQuitter_Click()
'on quitte le programme
    Unload Me
End Sub

Private Sub Form_Load()
'On declare la variable drv
Dim drv As Scripting.Drive

'et un string que va nous servir plus tard...
Dim strInf As String

'On utilise une boucle pour tester tous les elements
For Each drv In fso.Drives

'D'abord on controle si le drv est 'ready' pour tenir
'compte d'un lecteur vide.A vous de tester avec des
'lecteurs 'not ready'
'La fonction est interessante dans une
'installation par exemple

If drv.IsReady Then
    strInf = ""
    strInf = drv.DriveLetter & ":\ " _
    & Format(FormatNumber(drv.FreeSpace / 1024 ^ 2, 1), _
    "@@@@@@@") & "Mo libres sur " _
    & Format(FormatNumber(drv.TotalSize / 1024 ^ 2, 1), _
    "@@@@@@@") & "Mo ("
    Select Case drv.DriveType
        Case Removable
            strInf = strInf & "Disquette"
        Case Fixed
            strInf = strInf & "Disque dur"
        Case CDRom
            strInf = strInf & "CD Rom"
    End Select
    strInf = strInf & ": " & drv.VolumeName & ")"
    lstLecteurs.AddItem strInf
End If
    Next
End Sub
 

Télécharger le zip