MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Retorna diretório do Windows.

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Retorna diretório do Windows. Empty Retorna diretório do Windows.

    Mensagem  HARYSOHN em 27/6/2013, 18:55

    'Em um módulo:
     Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


    Function WinDir() As String

     Dim Buffer As String * 256
     GetWindowsDirectory Buffer, 256
     WinDir = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
     End Function

      Data/hora atual: 28/11/2020, 09:59