Zjištění názvu místního disku – Visual Basic – Fórum – Programujte.com

Ahoj, prosím vás jak mám udělat aby se název místního disku zobrazil v Labelu?

Zkoušel jsem něco takového

Label3.Text = IO.DriveType.Fixed

Ale jen to napíše 3 a nic víc, já bych potřeboval aby to zobrazilo název místního disku.

Prosím pomozte

#1 Michal
Z internetových zdrojů (ověřeno VBA Excel)

Function fVolume1(strDriveLetter As String) As String
'   Function to return the volume label for a drive
'   Accepts:
'       strDriveLetter - a valid drive letter for the PC, in the format "C:\"
'   Returns:
'       The volume label if it exists, or else "No label"
    Dim strVolume As String
    strVolume = Dir(strDriveLetter, vbVolume)
    If strVolume = "" Then strVolume = "No label"
    fVolume1 = strVolume
End Function

Tohle není Visual Basic ne?

#3 Michal
VBA visual basic for aplications = zjednodušený visual basic - když to funguje v něm tak i v tom složitějším ne? Zkusils to?

Zkusil, ale nic to nedělá

#5 Michal
Label3.Text = fVolume1("C:\")

nic?

Už ano, ale jen to napíše eMachines ale já bych k tomu ještě potřeboval jestli je to C:\ nebo D:\...

#7 Michal
Tak teď nerozumím, co vlastně chceš zobrazit?

Chci aby se zobrazila jednotka jako třeba C:\

#8 JoDiK
Jestli chceš se#9 Michal
Pořád nerozumím, ty chceš u disku C: zjistit, že se jmenuje C:?

Nebo chceš zjistit seznam C: D: E: atd všech funkčních disků?

Nebo máš nějaký neznámý odkaz na disk (třeba číselný) a chceš zjistit, jaký je to disk?

Zjistit seznam..

#11 Michal
http://msdn.microsoft.com/en-us/library/system.io.driveinfo.getdrives.aspx#Y0

To co je červeně v závorce bych tam chtěl + bych tam chtěl i další disky