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