Leer etiqueta de CD

[diegoc]

Hola a todos!
Estoy usando VB5 ¿Cómo puedo leer desde código la etiqueta de un CD? Gracias.

Saludos

Diego

[boluart]

Haber si es esto lo que buscas:

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
Private Sub Form_Load()
Dim Serial As Long, VName As String
VName = String$(255, Chr$(0))
GetVolumeInformation "D:\", VName, 255, Serial, 0, 0, 0, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
MsgBox VName
End Sub