|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Pegar o Diretório de Arquivos Temporários (Windows\Temp)
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
'NUM MÓDULO:
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
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
'P/ CHAMAR:
MsgBox "O Diretório System do Windows é: " & GetTempDir, _
vbOKOnly + 64, "Local do Diretório System do Windows"
|
|
|
|
|
