Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
157
Assunto : Visual Basic
Titulo: Como identificar o diretório windows do usuário

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para identificarmos o diretório Windows da máquina do usuário precisaremos chamar uma função da API chamada GetWindowsDirectory. Precisaremos transmitir a ela uma variável string como Buffer e um tamanho (o tamanho esperado da informação). A função devolverá a variável string preenchida com o tamanho especificado.

As declarações abaixo devem ser feitas em um módulo :

Private Const MAX_PATH As Long = 260
Private Declare Function GetWindowsDirectory Lib _
"kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As _
Long) As Long


Vamos criar uma função para facilitar a obtenção desta informação. Você pode também criar a função em um módulo para ser acessada de qualquer parte da aplicação. Observe que para chamar a função é preenchida uma string com o tamanho especificado na constante MAX_PATH, que é 260 (tamanho máximo de um path no windows.

Public Function GetWinDir() As String
Dim strFolder As String
Dim lngResult As Long
strFolder = String(MAX_PATH, 0)
lngResult = GetWindowsDirectory(strFolder, MAX_PATH)
If lngResult <> 0 Then
If Right(Left(strFolder, lngResult), 1) = "\" Then
GetWinDir = Left(strFolder, lngResult)
Else
GetWinDir = Left(strFolder, lngResult) & "\"
End If
Else
GetWinPath = ""
End If
End Function

Feito isso podemos chamar a função de qualquer parte da aplicação :

MsgBox "O Diretório do Windows é: " & GetWinDir, _
vbOKOnly + 64, "Local do Diretório do Windows"


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
Nenhum comentário foi realizado ainda. Seja o primeiro !
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br