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
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.