Infos systeme

Soyez le premier à donner votre avis sur cette source.

Vue 7 673 fois - Téléchargée 816 fois

Description

Une feuille, une listbox, un boutton de commande...et voilà

Source / Exemple :


'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

Conclusion :


BIENTOT DES APPLICATION POUR UTILISER EN PRATIQUE LA BASE DES REGISTRES

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.