Récuperer des infos systeme.Résolu

Question

Bonjour à tous:
Comment fait on pour connaître et afficher l'espace disponnible sur le disque C: d'un utilisateur ?
Merci d'avance.

Charles Racaud · Accepted Answer

Je me demande a qui y sert le code que t'a trouvé ? Surtout le InfosLecteurs

Enfon bon, AvailableFreeSpace retourne se que tu veux non ?







For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
  If Drive.IsReady Then
    System.Windows.Forms.MessageBox.Show(Drive.AvailableFreeSpace.ToString())
  End If
Next,

----

(Coloration syntaxique automatique par Kenji)







__________
Kenji

CCJ · Answer

Salut
A mon avis des sources de ce genre , il doit y en avoir des ... dizaines sur le site .
Si tu cherche bien ca ne devrait as etre un probeme 

Si l'informatique été de l'alcool il y aurait des genies partout

Marneus73 · Answer

Oui je viens de trouver ça 

On Error Resume Next
        Dim NombreLecteurs As Byte = My.Computer.FileSystem.Drives.Count

        Dim NomsLecteurs As System.Collections.ObjectModel.ReadOnlyCollection(Of System.IO.DriveInfo)
        Dim InfosLecteurs(NombreLecteurs, 8) As String
        Dim Compteur As Byte = 1
        'on commence les lignes du tableau à 1

        NomsLecteurs = My.Computer.FileSystem.Drives

        For Each info As System.IO.DriveInfo In NomsLecteurs

            InfosLecteurs(Compteur, 0) = info.Name
            InfosLecteurs(Compteur, 1) = info.IsReady
            InfosLecteurs(Compteur, 2) = info.DriveType
            InfosLecteurs(Compteur, 3) = info.DriveFormat
            InfosLecteurs(Compteur, 4) = info.VolumeLabel
            InfosLecteurs(Compteur, 5) = info.TotalSize
            InfosLecteurs(Compteur, 6) = info.TotalFreeSpace
            InfosLecteurs(Compteur, 7) = info.AvailableFreeSpace
            Compteur = Compteur + 1
           MessageBox.Show(???)
        Next

Mais il faut mettre quoi dans MessageBox.Show(???) pour voir l'espace disponnible sur le lecteur c: ???

jmfmarques · Answer

A mon humble avis :

  InfosLecteurs(Compteur, 0) par exemple ...
ou encore
 InfosLecteurs(Compteur, 6)

enfin quoi : ce que tu veux afficher, à la place des ????, pardi !

CCJ · Answer

.NET powwaaaa? 



Merci de ien vouloir check la reponse ci dessus 

Si l'informatique été de l'alcool il y aurait des genies partout

Marneus73 · Answer

Super merci bien.
J'ai modifié ton code et c'est pile ce que je voulais.

For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
            If Drive.IsReady Then
                Dim f As String
                f = Drive.AvailableFreeSpace
                Dim j As String
                j = f / 1000000000
                System.Windows.Forms.MessageBox.Show("Vous disposez de: " + j + " Go sur " + Drive.Name)
            End If
        Next

Charles Racaud · Answer

Oulà ...
Pourquoi faire une division avec des chaine de caractères ? C'est à l'affichage qu'il faut transformer en chaîne.
Et pour concatiser des chaine on utilise l'operateur &
Et 1Go n'est pas égale à 1000000000 octets.

Pour du dotnet powwaaaa ca donnerai :
Dim FreeSpace As Double = System.Math.Round(Drive.AvailableFreeSpace / 1024 / 1024 / 1024, 1)
'Dim FreeSpace As Integer = System.Convert.ToInt32(Drive.AvailableFreeSpace / 1024 / 1024 / 1024)
System.Windows.Forms.MessageBox.Show(String.Format("Vous disposez de: {0} Go sur {1}", FreeSpace, Drive.Name))






__________
Kenji

Récuperer des infos systeme.

7 réponses

Votre réponse