Início
Connekta Informatica 9/1/2014, 18:58Não entendi o que você quis dizer.
Os código que forão usando:
Ao clicar do botão:
O módulo usando:
Os código que forão usando:
Ao clicar do botão:
- Código:
'Exibe o número de serie do drive atual
Me.Combo1.SetFocus
If Combo1.Text = "" Then Exit Sub
MsgBox " Número de série do dispositivo " & Combo1.Text & " : " & GetDriveSerialNumber(Combo1.Text)
O módulo usando:
- Código:
Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long
Dim fso As Object
Dim Drv As Object
'Cria um objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Atribui a letra do drive atual se nada for especificado
If DriveLetter <> "" Then
Set Drv = fso.GetDrive(DriveLetter)
Else
Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
End If
With Drv
If .IsReady Then
DriveSerial = Abs(.SerialNumber)
Else '"Drive não esta pronto!"
DriveSerial = -1
End If
End With
'libera objetos
Set Drv = Nothing
Set fso = Nothing
GetDriveSerialNumber = DriveSerial
End Function
