VBA – Testando o Drive de CD/DVD

Mais uma do fórum. Baseado em um código também aqui do blog, um colega questionou sobre como descobrir ou garantir que um o drive de CD esteja preparado ou com o conteúdo a ser avaliado.

Bem, a parte de verificação de arquivos de pasta é outro assunto amplamente tratado. O problema é o caso do drive de CD/DVD. O código abaixo faz a proeza:

Sub TesteDriveCD()
    Dim oFso As New FileSystemObject
    Dim oDrive As Drive, cdDrive As Drive
 
 
    For Each oDrive In oFso.Drives
        If oDrive.DriveType = CDRom Then
            Set cdDrive = oDrive
        End If
    Next
 
    If cdDrive.IsReady Then
        Debug.Print cdDrive.AvailableSpace
        Debug.Print cdDrive.DriveLetter
        Debug.Print cdDrive.DriveType
        Debug.Print cdDrive.FileSystem
        Debug.Print cdDrive.FreeSpace
    Else
        MsgBox "O Drive de CD está vazio"
    End If
 
End Sub

O código é bem descritivo e faz uso dos objetos do FileSystemObject. O Enum DriveTypeConst ajuda bastante na identificação do tipo de Drive que é tratado.

OBS: No caso do código acima, é importante dizer que ele pega o 1º drive do tipo CDRom encontrado. Se houver mais, é preciso melhorar o código.

Não esqueçam de que para utilizar os objetos do FileSystemObject, é preciso adicionar a referência ao Microsoft Scripting Runtime.

Bom proveito!

Comentários

comentários