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!