Crie um módulo com esse código:
Public
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA"
_
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"
_
(ByVal nDrive As String) As Long
Insira esse código em seu Projeto:
Private Sub Form_Activate()
Dim sDriveCD As String
Dim sCD
allDrives$ = Space$(64)
Form1.Cls
ret& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, ret&)
Do
pos% = InStr(allDrives$, Chr$(0))
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos% - 1)
allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
DriveType& = GetDriveType(JustOneDrive$)
If DriveType& = 2 Then
Print UCase$(JustOneDrive$) & " Unidade de Disco Removível"
sDriveCD = UCase$(JustOneDrive$)
ElseIf DriveType& = 3 Then
Print UCase$(JustOneDrive$) & " Unidade de Disco Fixo"
sDriveCD = UCase$(JustOneDrive$)
ElseIf DriveType& = 4 Then
Print UCase$(JustOneDrive$) & " Unidade de Drive Remoto"
sDriveCD = UCase$(JustOneDrive$)
ElseIf DriveType& = 5 Then
Print UCase$(JustOneDrive$) & " Unidade de CD-Rom"
sDriveCD = UCase$(JustOneDrive$)
ElseIf DriveType& = 6 Then
Print UCase$(JustOneDrive$) & " Ramdisk"
sDriveCD = UCase$(JustOneDrive$)
Else
Print UCase$(JustOneDrive$) & " ????"
End If
End If
Loop Until allDrives$ = ""
End Sub
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco