[VB.net] Lettura etichetta dischi

[xander1979]

Ciao a tutti, volevo sapere se c'è modo in Visual Basic di leggere l'etichetta di un disco? Se si, con che istruzioni?

Grazie in anticipo

Ciao

[sintax_error]

Si con alcune Api e possibile recuperare tutte le info sui Dischi.
Api interessata e GetVolumeInformation.
Nelle dichiarazioni:

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" _
    (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
    (ByVal lpRootPathName As String, lpBytesAvailable As Currency, lpTotalBytes As Currency, lpFreeBytes As Currency) As Long
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
   (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

aggiungi un textbox1 un commandbutton1 e una label

Private Sub Command1_Click()
    Dim lRet As Long, aRoot$, aVN$, lSerial As Long, lMaxFileName As Long
    Dim lFlags As Long, aFN$, a$
    aRoot$ = Text1.Text
    aVN$ = Space$(255)
    aFN$ = Space$(255)
    lRet = GetVolumeInformation(aRoot$, aVN$, Len(aVN$), lSerial, lMaxFileName, lFlags, aFN$, Len(aFN$))
    aVN$ = aVN$ & Chr$(0): lblVolName.Caption = Left$(aVN$, InStr(aVN$, Chr$(0)) - 1): If lblVolName.Caption = "" Then lblVolName.Caption = "{volume has no label}"
    
End Sub

[MMarzia]

versione di VB?
ricorda che va indicata sempre, soprattutto nel titolo


nel frattempo ti sposto nel subforum

[xander1979]

Ho provato ma non trovo le funzioni indicate, preciso che stò usando VB.NET.

Che qualcuno mi aiuti, non sò come fare!!!!

[sintax_error]

Quel Codice e per VB6
per vb.net non saprei
Ciao