USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Drives/CD-ROM/Discos)

Título da Dica:  Detectando o tipo de drive
Postada em 28/2/2001 por Jayme      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página