CHOISIR LE MEILLEUR DISQUE

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