Choisir le meilleur disque

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 930 fois - Téléchargée 63 fois

Contenu du snippet

Voici une autre méthode (tjrs pas de moi :) utilisant les composants VBS pour choisir le disque dur le plus vide et accessoirement avoir son type.

Source / Exemple :


Option Explicit

Private Sub Command1_Click()
    Dim LectScan    As Integer
    Dim Meilleur    As Double
    Dim TailScan    As Double
    Dim Lecteur     As String

    Meilleur = 0
    For LectScan = 2 To Drive1.ListIndex
        If DisqueDur(Drive1.List(LectScan)) = True Then
            TailScan = PlaceDisque(Drive1.List(LectScan))
            If Meilleur < TailScan Then
                Meilleur = TailScan
                Lecteur = Drive1.List(LectScan)
            End If
        End If
    Next
    MsgBox "Le meilleur est " + Lecteur + "avec une place libre de " _
    & Meilleur & " Mo"
End Sub

Private Function DisqueDur(Lecteur) As Boolean
    Dim FilSys, LectT
    Set FilSys = CreateObject("Scripting.FileSystemObject")
    Set LectT = FilSys.GetDrive(drvpath)
    Select Case LectT.DriveType
        Case 0
            'Inconnu
            DisqueDur = False
        Case 1
            'Amovible
            DisqueDur = False
        Case 2
            'Fixe
            DisqueDur = True
        Case 3
            'Réseau
            DisqueDur = False
        Case 4
            'CD-ROM
            DisqueDur = False
        Case 5
            'Disque RAM
            DisqueDur = False
    End Select
End Function

Private Function PlaceDisque(Lecteur) As Long
    Dim FilSys, LectT
    Set FilSys = CreateObject("Scripting.FileSystemObject")
    Set LectT = FilSys.GetDrive(FilSys.GetDriveName(Lecteur))
    PlaceDisque = FormatNumber(LectT.AvailableSpace / 1024 ^ 2, 0)
End Function

Conclusion :


Notez que cette méthode nécessite VBS (Win 98 ou +) et que l'autre est vraiment compatible avec TOUT.<BR><BR>Vous avez seulement besoin d'un bouton.

A voir également

Ajouter un commentaire Commentaire
Messages postés
2
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
4 novembre 2002

apparemment y a un probleme si ton lecteur a un autre nom que c:, par exemple windows, ton prog va planter...

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.