Sans api scan votre pc + infos sur les disques
Soyez le premier à donner votre avis sur cette source.
Vue 4 985 fois - Téléchargée 383 fois
Description
Source / Exemple :
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
Codes Sources
A voir également
- Sans api scan votre pc + infos sur les disques
- Sans api infos sur fichiers - Codes sources - Visual Basic / VB.NET (API)
- Connecter un pc à internet (sans api ) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Bureau en cascade - bureau en mosaic (sans api) - CodeS SourceS - Guide
- Utiliser un lien internet explorer sans api - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Sans api , browsefolder - Codes sources - Visual Basic / VB.NET (API)
merci de répondre a ce message bonne soirée
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.