Visual Basic - ETIQUETA DE CD

HOLA SOLO NECESITO QUE ME DIGAN COMO PUEDO HACER PARA SABER LA ETIQUETA DE UN CD Y EL TAMAÑO TOTAL DE ARCHIVOS QUE TIENE (KB O MB)

Hola cuidado que el Explorador de WIN solo lee la ultima pista de un CD grabado en Multiseccion.
Si instalas el programa NERO, por ej para grabar CD, se acopla una pestaña nueva del programa en el Explorador cuando haces click en el archivo y boton derecho, Poriedades, desde esa pestaña que suele llamarse TOMOS podes ver todas las secciones que tiene grabadas, haces doble click en esa seccion y el Explorador de WIN tambien se posiciona en esa pista.
Ahora bien como se hace esto desde VB6 es un verdadero misterio que hasta ahora nadie me pudo responder, si encontras la forma pasamela por favor. En el foro en buscar si colocar Multiseccion vas a encontrar lo que pregunte, muy similar a lo tuyo, y que aun nadie pudo responder, ni siquiera Anonimo. Bueno saludos a vos y tambien a Anonimo.
edu

'Necesario para el volumen
Private Declare Function GetVolumeInformation Lib "kernel32.dll" 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 Command1_Click()
Dim volname As String ' Recibe el Nombre del Volumen
Dim sn As Long ' Recibe el largo del número de serie
Dim snstr As String ' Recibe el número de serie
Dim maxcomplen As Long
Dim sysflags As Long ' Recibe los flags del Sistema de archivos
Dim sysname As String ' Recibe el nombre del Sistema de archivos
Dim retval As Long

' Inicializa el buffer.
volname = Space(256)
sysname = Space(256)
' Toma la información del disco C:
retval = GetVolumeInformation("C:\", volname, Len(volname), sn, maxcomplen, _
sysflags, sysname, Len(sysname))
'Remueve el carácter nulo.
volname = Left(volname, InStr(volname, vbNullChar) - 1)
Debug.Print "Volume Name: "; volname
End Sub

'Necesario para saber tamaño, no devuelve valor real en multesesión
Private Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32.dll" Alias "GetDiskFreeSpaceExA" (ByVal _
lpDirectoryName As String, lpFreeBytesAvailableToCaller As ULARGE_INTEGER, _
lpTotalNumberOfBytes As ULARGE_INTEGER, lpTotalNumberOfFreeBytes As ULARGE_INTEGER) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source _
As Any, ByVal Length As Long)
Private Sub Command2_Click()
Dim userbytes As ULARGE_INTEGER ' bytes free to user
Dim totalbytes As ULARGE_INTEGER ' total de bytes en disco
Dim freebytes As ULARGE_INTEGER ' Total de bytes libres en disco
Dim tempval As Currency ' Muestra un buffer con valore de 64-bit
Dim tempOcupado As Currency ' Muestra un buffer con valore de 64-bit
Dim retval As Long ' return value
' Toma la información del disco E:\.
retval = GetDiskFreeSpaceEx("e:\", userbytes, totalbytes, freebytes)
CopyMemory tempval, freebytes, 8
CopyMemory tempOcupado, totalbytes, 8
tempval = tempval * 10000
tempOcupado = tempOcupado * 10000
tempOcupado = tempOcupado - tempval
Debug.Print "Espacio Libre en disco D: "; tempval; "bytes"
Debug.Print "Espacio ocupado en disco D :"; tempOcupado; "bytes"
End Sub