Jump to content
lusky

Como obter lista de volumes no listbox (vb.net)

Recommended Posts

lusky

Boas,

Visto as versões do windows posterior ao win7 terem "descartado" a facilidade em rodar ficheiros batch, tenho de refazer todo o automatismo com exe's...

Preciso de um código onde me liste numa listbox todos os volumes existentes (com e sem letra) na máquina da mesma forma que obtemos através do diskpart, eu tenho um código onde me vai buscar toda a informação de cada letra, mas não tenho como saber os que não tem letra atribuída....

Código que uso actualmente:

Dim fso As New FileSystemObject
        Dim arquivo As Drive
        ListBox1.Items.Clear()
        arquivo = fso.GetDrive(ComboBox2.Text)
        With (arquivo)
            If .IsReady Then
                ListBox1.Items.Add("Letra associada ao drive : " & .DriveLetter)
                ListBox1.Items.Add("Nome do Volume : " & .VolumeName)
                ListBox1.Items.Add("Espaço total do drive : " & FormatNumber(.TotalSize / 1024, 0))
                ListBox1.Items.Add("Espaço disponível livre no drive : " & FormatNumber(.FreeSpace / 1024, 0))
                ListBox1.Items.Add("Número de série do drive : " & .SerialNumber)
                ListBox1.Items.Add("Volume: " & .DriveType)
            Else
                MsgBox("A unidade não esta pronta !! Verifique !!", vbCritical, "Erro de acesso")
            End If
        End With

Este código retorna na listbox os valores no seguinte formato:

Letra associada ao drive: L
Nome do volume: APPS
Espaço total do drive: 50.212.048
Espaço disponível no drive: 49.027.288
Número de série do drive: 1547758574
Volume: 3

Gostaria de ter a vossa ajuda em obter um código que me devolvesse na listbox a lista de todos os volumes existentes e devidas letras atribuídas ou não tipo isto:

Volume 0  >  C
Volume 1  > 
Volume 2  >  D
Volume 3  >  E

Toda e qualquer ajuda será benvinda!

Cumps,

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.