PEGANDO NOME DO CD-ROM

SOUZA 26/08/2011 20:22:22
#382597
Pessoal eu gostaria de pegar o nome que é dado para a midia de cd ou dvd ex.

Quando vou gravar uma midia posso colocar um nome nela é esse nome que eu gostaria de pegar!
RODRIGOFERRO 26/08/2011 20:52:08
#382598 Resposta escolhida
Tente usar esse função !

Function VolumeLabel(drive As String) As String
    Dim temp As String
    On Error Resume Next
    temp = Dir$(drive, vbVolume)
    [ô] remove the period after the eigth character
    VolumeLabel = Left$(temp, 8) + Mid$(temp, 9)
End Function


Acredito que funciona !
SOUZA 26/08/2011 21:08:13
#382600
ok, valeu pela força !
Tópico encerrado , respostas não são mais permitidas
Voltar