- Private Sub Command1_Click()
- Dim fso, d, dc, s
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set dc = fso.Drives
- s = "Voici les Disques de votre PC." & vbCrLf
- st = "Voici les Espaces libres de vos disques non vides." & vbCrLf
- On Error Resume Next
- For Each d In dc
- s = s & vbCrLf & d.DriveLetter & ": "
- st = st & vbCrLf & d.DriveLetter & ": " & "Espace disponible : " & FormatNumber(d.FreeSpace / 1024, 0) & " Ko"
- Next
- ShowDriveList = s
- MsgBox s, vbYes, "Résultat"
- MsgBox st, vbYes, "Résultat"
-
- End Sub
-
Private Sub Command1_Click()
Dim fso, d, dc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
s = "Voici les Disques de votre PC." & vbCrLf
st = "Voici les Espaces libres de vos disques non vides." & vbCrLf
On Error Resume Next
For Each d In dc
s = s & vbCrLf & d.DriveLetter & ": "
st = st & vbCrLf & d.DriveLetter & ": " & "Espace disponible : " & FormatNumber(d.FreeSpace / 1024, 0) & " Ko"
Next
ShowDriveList = s
MsgBox s, vbYes, "Résultat"
MsgBox st, vbYes, "Résultat"
End Sub