MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    número de série do disco

    Compartilhe

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    número de série do disco

    Mensagem  Connekta Informatica em Qui 09 Jan 2014, 18:58

    Não entendi o que você quis dizer.



    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


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: número de série do disco

    Mensagem  Uilson Brasil em Qui 09 Jan 2014, 19:19

    Amigo,

    O que quis dizer é que o código não gera o número do HD e sim do dispositivo ou partição do disco.


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Obtendo o serial do HD

    Mensagem  toyebom em Qui 09 Jan 2014, 22:58

    Vê este tópico pode ser que ajude

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: número de série do disco

    Mensagem  Alexandre Neves em Qui 09 Jan 2014, 23:21

    Boa noite,
    Movi o tema para esta sala.
    Respeite as regras do fórum.
    A sala de repositório não serve para tirar dúvidas.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Sab 03 Dez 2016, 19:37