Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
154
Assunto : Visual Basic
Titulo: Obter o caminho para o diretório TEMP

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 obtermos o caminho para o diretório TEMP devemos utilizar uma função da API chamada GetTempPath. Ela deve ser declarada da seguinte forma :

Private Const MAX_PATH As Long = 260
Private Declare Function GetTempPath Lib "kernel32" _
Alias "GetTempPathA" (ByVal nBufferLenght _
As Long, ByVal lpBuffer As String) As Long

A constante MAX_PATH foi definida com o tamanho máximo de um path no ambiente windows.

Podemos então criar a seguinte função :

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

Observe que é necessário utilizar uma variável como "buffer" : Ela vai para a função com 260 caracteres ("0") e alguns destes voltam preenchidos. O retorno da função GetTempPath é o número de caracteres preenchidos. Faz-se então um left para obter o caminho para o Temp.


Podemos chamar da seguinte forma :

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


Não se esqueçam que muitas vezes existe uma váriável de ambiente chamada TEMP apontando para o diretório TEMP do Windows. Portanto Environ$("TEMP") pode ter o mesmo resultado.




Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 11:56:00 PM
nome: FExQMKPpNRY
email: jimos4581rzt@hotmail.com
comentário:
INgIfL http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 11:22:00 PM
nome: OJNpnggwzAfBZiS
email: jimos4581rzt@hotmail.com
comentário:
7WHXvJ http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/8/2016 7:47:00 AM
nome: rSZqujsMGM
email: jimos4581rt@hotmail.com
comentário:
EJmeTM http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

 1  
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