Peripheriques info

Soyez le premier à donner votre avis sur cette source.

Vue 7 211 fois - Téléchargée 932 fois

Description

Donne plein d'info sur les disque dur,cdrom,...

Source / Exemple :


'By JejeSoftware®
'
'Mettre dans un module
'
'
Function Pour100Libre(ByVal Total As String, ByVal Libre As String)
 Pour100Libre = Round(Libre * 100 / Total, 2) & " % libres."
End Function
Function ListeDrvs()
On Error Resume Next
    Dim T0 As String, T1 As String, T2 As String, T3 As String, T4 As String, T5 As String, Texte As String, Tail As String, Rest As String
     T1 = "0"
     T2 = "0"
     T3 = "0"
     T4 = "0"
     T5 = "0"
     Tail = "0"
     Rest = "0"
    Dim fs, d As Drive, dc, S, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d In dc
     If d.DriveLetter = "A" Then GoTo Suite
     If d.DriveLetter = "B" Then GoTo Suite
     GoTo Sui
Suite:
     If d.IsReady = False Then GoTo S
Sui:
     Select Case d.DriveType
        Case 0:
         T = "Inconnu"
         T0 = T0 + 1
        Case 1:
         T = "Lecteur Amovible"
         T1 = T1 + 1
        Case 2:
         T = "Disque dur"
         T2 = T2 + 1
        Case 3:
         T = "Lecteur Réseau"
         T3 = T3 + 1
        Case 4:
         T = "Lecteur DVD-Rom ou CD-Rom ou Graveur CD-R/RW"
         T4 = T4 + 1
        Case 5:
         T = "Disque RAM"
         T5 = T5 + 1
     End Select
     If T = "Disque dur" Then Tail = Tail + Round(d.TotalSize / 1024 / 1024, 2)
     If T = "Disque dur" Then Rest = Rest + Round(d.FreeSpace / 1024 / 1024, 2)
     S = S & "Lecteur " & d.DriveLetter & ":" & vbCrLf
     S = S & "   Type : " & T & vbCrLf
     S = S & "   Nom de volume : " & d.VolumeName & vbCrLf
     S = S & "   N° de serie : " & d.SerialNumber & vbCrLf
     S = S & "   Système de fichier : " & d.FileSystem & vbCrLf
     S = S & "   Taille : " & Round(d.TotalSize / 1024 / 1024, 2) & " Mo." & vbCrLf
     S = S & "   Espace libre : " & Round(d.FreeSpace / 1024 / 1024, 2) & " Mo. soit " & Pour100Libre(d.TotalSize, d.FreeSpace) & vbCrLf
     S = S & vbCrLf
     GoTo FinSuite
S:
     S = S & "Lecteur " & d.DriveLetter & ":" & vbCrLf
     S = S & "   Type : Lecteur Amovible" & vbCrLf
     S = S & vbCrLf
     T1 = T1 + 1
FinSuite:
    Next
     If T0 = "" Then T0 = "0"
     Texte = "Périphériques :" & vbCrLf
     Texte = Texte & "  " & T0 & " Inconnu(s) " & vbCrLf & "  " & T1 & " Lecteur(s) Amovible(s) " & vbCrLf & "  " & T2 & " Disque(s) Dur(s) " & vbCrLf & "  " & T4 & " Lecteur(s) DVD-Rom ou CD-Rom ou Graveur CD-R/RW " & vbCrLf & "  " & T5 & " Disque RAM" & vbCrLf & "  " & T3 & " Lecteur(s) Réseau " & vbCrLf & vbCrLf
     Texte = Texte & " $$$ Total espace disque : " & Round(Tail / 1024, 2) & " Go. $$$" & vbCrLf & vbCrLf
     Texte = Texte & " $$$ Total espace disque restant : " & Round(Rest / 1024, 2) & " Go. soit " & Pour100Libre(Tail, Rest) & " $$$" & vbCrLf & vbCrLf
     Texte = Texte & S
   ListeDrvs = Texte
End Function
'
' Puis dans la feuille
' 
Private Sub Form_Load()
 Text1.Text = ListeDrvs
End Sub

Conclusion :


Pas trop bensoin d'explication, mais si vous comprener pas ou que ça marche pas chez vous prenner le zip essayer et mailer moi

Codes Sources

A voir également

Ajouter un commentaire Commentaires
e_NeX Messages postés 104 Date d'inscription mardi 9 mars 2004 Statut Membre Dernière intervention 30 novembre 2009
8 oct. 2005 à 21:49
faudrais penser à ceux qui on un Windows en anglais... ca rla ca merche que pour le win en francais...
cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006
15 mars 2005 à 12:54
J'ai mis 10 bande de raleurs.... bon c'est vrai il y à peu de commentairs, mais d'une part il fonctionne, et rien ne vous empêche de l'optimiser, rien ne vous empêche de le reprendre... et de le mettre à disposition. Et encore moin de vous pencher sur vos livres....
@bon entendeur
Sator2
Azat0th Messages postés 7 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 6 novembre 2004
13 févr. 2004 à 09:32
Les goto sont à proscrire, sinon les infos données sont bien mais c'est une très mauvaise habitude de coder avec des goto...
tu devrais mettre cette source à jour
jejegrossoft Messages postés 3 Date d'inscription mercredi 5 novembre 2003 Statut Membre Dernière intervention 6 novembre 2003
6 nov. 2003 à 00:58
Salut

Pedgom :

Je C que ma source est un peu brouillon mais a ce moment est pas eu l'idee d'y mettre des commentaires

pour les goto bien desolé j'avait que ca sous la dent quand je l'ai fait

Code pas optimisé mais sinon source bonne
pedgom Messages postés 13 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 1 juin 2004
27 août 2003 à 16:41
Le résultat donné est balaise mais la technique pour y arriver c'est pas encore ça. Des GoTo, pas de commentaire, ... c'est plutot brouillon comme truc.
Afficher les 6 commentaires

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.