[Visual Basic 2010]Calcolare spazio libero su disco

[Gian01]

Mi servirebbe calcolare lo spazio libero sul disco C e/o D.
ho cercato d'appertutto, ma non ho trovato niente!
se fosse possibile dovrei poterlo calcolare istantaneamente, cioè selezionando da un combobox.
Grazie

[oregon]

Questo

http://msdn.microsoft.com/en-us/libr...freespace.aspx

ti basta?

[Gian01]

l'esempio è per Console non per WindowsApplicationForm!
Ho provato a sostituire Console.WriteLine con Label1.Text, ma non va

[MdE2005]

Originariamente inviato da Gian01
l'esempio è per Console non per WindowsApplicationForm!
Ho provato a sostituire Console.WriteLine con Label1.Text, ma non va

Posta il codice perchè è praticamente impossibile che non funzioni..

Se hai copiato il codice suggerito, la riga di codice è semplicemente questa:

TuaLabel.Text =  d.AvailableFreeSpace.toString

[oregon]

Originariamente inviato da Gian01
l'esempio è per Console non per WindowsApplicationForm!
Ho provato a sostituire Console.WriteLine con Label1.Text, ma non va

Non va cosa ? Che hai scritto ?

Stiamo parlando di un uso di "base" di Visual Basic ... queste nozioni si devono possedere per mettere le mani su una tastiera ... su ...

[Gian01]

Ho provato così:

Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
Label1.Text = d.AvailableFreeSpace.ToString
Next

Ma da errore: Periferica non pronta

[MItaly]

Ciclando su tutti i drive vai a prendere anche drive rimovibili vuoti (ad esempio lettori CD/di schedine senza alcun supporto inserito), da cui quell'errore. Fai scegliere all'utente il drive da esaminare e/o sii preparato a catturare l'eccezione in questione con un blocco Try/Catch.

[oregon]

E dirlo prima?

Dice "periferica non pronta" perché tenta di leggere il tuo lettore CD e non trova il CD dentro !

Basta inserire la riga in una Try..Catch per evitare il messaggio stesso.

E ovviamente, essendo in un ciclo, vedrai solamente l'ultimo valore nella label perché, man mano che il ciclo va avanti, la label sarà cancellata dal valore precedente.

Ma stiamo parlando di uso "elementare" di semplici istruzioni VB.NET ...

[Gian01]

Ho fatto così solo che mi da i valori sommati!

Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
If d.IsReady = True Then
Label1.Text = d.AvailableFreeSpace.ToString
End If
Next

Come faccio a specificarli??

[oregon]

Hai letto tutta la mia risposta precedente?