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:  Lista todos os drives do micro e informa se é CD-Rom, Disco fixo....
Postada em 1/10/2003 por Tekki            
'No módulo :
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

'No Form
'Form_Activate
'Não use no load

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$ = ""
 


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