|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Drives/CD-ROM/Discos)
|
|
 |
Título da Dica: Detectando o tipo de drive
|
 |
|
|
|
Postada em 28/2/2001 por Jayme
jaymekm@osite.com.br
Às vezes é necessário saber que tipo de drive é representado por cada unidade. No módulo do formulário, coloque a função abaixo:
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Para utilizá-la, chame a função, passando como parâmetro a unidade desejada, seguido da string ":\"
Exemplo: GetDriveType("c:\")
Analisando o resultado. Vamos supor que estejamos analisando o conteúdo de uma caixa de texto, chamada Text1:
Dim tipo As Integer
tipo = GetDriveType(Text1)
Select Case tipo
Case 0
MsgBox "Unidade não pode ser determinada"
Case 1
MsgBox "Unidade não existe"
Case 2
MsgBox "Unidade de disco removível"
Case 3
MsgBox "Unidade de disco fixo"
Case 4
MsgBox "Unidade de drive remoto"
Case 5
MsgBox "Unidade de CD-ROM"
Case Is = 6
MsgBox "Unidade de RAMDISK"
End Select
Atenciosamente,
Jayme
|
|
|
|
|
