Scanneur de lecteurs

Commenter

Contenu du snippet

voila encore moi !

ce script passe en revut tous les lecteurs de votre pc en donnant des renseignements !

(je m'ennuyais encore ...)

Source / Exemple : 


Dim Fso, lecteur, Dc, nom, Capacite, Disponible

Set Fso = CreateObject("Scripting.FileSystemObject")

For Each lecteur in Fso.Drives

If lecteur.DriveType = 3 Then
   nom = lecteur.ShareName
Else
    If lecteur.IsReady Then

    '************ Nom de volume ********************'

    nom = lecteur.VolumeName

    '*****  Espace disponible et capacité  *********'

    Capacite =  round (lecteur.TotalSize / 1024 / 1024 /1024 , 2) & " Go"

    if capacite<"1" then
       capacite= round (lecteur.TotalSize / 1024 / 1024 , 2) & " Mo"
    end if

    Disponible = round (lecteur.AvailableSpace / 1024 / 1024 / 1024 , 2) & " Go"

    if Disponible<"1" then
	Disponible= round (lecteur.AvailableSpace / 1024 / 1024 , 2) & " Mo"
    end if

    MsgBox lecteur.DriveLetter & " - " & nom & vbCrLf & "Capacité: " & Capacite & vbCrLf & "Disponible: " & Disponible ,, "Propriété du lecteur"

    Else

    '********  Lecteur non-disponible  *************'

    nom = "< Non prêt >"
    Capacite = ""
    Disponible = ""

    MsgBox lecteur.DriveLetter & " - " & nom ,,"Lecteur disquette ou CD-ROM vide "

    End If
End If

next

msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"

A voir également

S'inscrire maintenant

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.

Du même auteur (Marvin77)