|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Função GetDriveType32
|
 |
|
|
|
Postada em 21/8/2003 por d@®l@n
Considero esta função com uma enorme importância, pois chama a atenção para as seguranças dos dados que se devem fazer com regularidade e que poucos utilizadores fazem.
Criamos um objecto ComboBox com a propriedade Name=cboDrive, e uma TextBox com a propriedade Name=txtDriveType
No evento FormLoad() fazemos o Call ao procedimento cboDriveLoad().
Private Sub cboDriveLoad()
Dim intLoop As Integer
For intLoop = 65 To 90 ' As letras do alfabeto adicionadas á ComboBox
cboDrive.AddItem Chr$(intLoop)
Next intLoop
End Sub
Private Sub cboDrive_Click()
Dim lngType As Long
lngType = GetDriveType32(cboDrive.Text & ":\")
Select Case lngType
Case DRIVE_REMOVABLE
txtDriveType = "Disco Removivel"
Case DRIVE_FIXED
txtDriveType = "Disco Duro"
Case DRIVE_CD_ROM
txtDriveType = "CD-ROM "
Case Else
txtDriveType = "Desconhecido, ou Não Existente "
End Select
End Sub
|
|
|
|
|
