MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    número de série do disco

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    número de série do disco Empty número de série do disco

    Mensagem  Connekta Informatica 9/1/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    número de série do disco Empty Re: número de série do disco

    Mensagem  Uilson Brasil 9/1/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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    número de série do disco Empty Obtendo o serial do HD

    Mensagem  toyebom 9/1/2014, 22:58

    Vê este tópico pode ser que ajude

    http://maximoaccess.forumeiros.com/t9349-resolvidoserial-do-hd?highlight=serial+HD


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


    Respeito às regras : Respeito às Regras 100%

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

    número de série do disco Empty Re: número de série do disco

    Mensagem  Alexandre Neves 9/1/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

    Conteúdo patrocinado


    número de série do disco Empty Re: número de série do disco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:01