Determinando onde está a pasta de arquivos temporários do Windows - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Determinando onde está a pasta de arquivos temporários do Windows

Você já desejou identificar onde está a pasta de arquivos temporários do Windows através de sua planilha?

Coloque o seguinte código em um módulo e execute ele:

Declare Function GetTempPath _
        Lib "kernel32" Alias "GetTempPathA" _
       (ByVal nBufferLength As Long, _
        ByVal lpBuffer As String) As Long

Public Function fncGetTempPath() As String
  Dim PathLen As Long
  Dim WinTempDir As String
  Dim BufferLength As Long
  BufferLength = 260
  WinTempDir = Space(BufferLength)
  PathLen = GetTempPath(BufferLength, WinTempDir)
  If Not PathLen = 0 Then
     fncGetTempPath = Left(WinTempDir, PathLen)
  Else
     fncGetTempPath = CurDir()
  End If
End Function

Sub Test()
   MsgBox fncGetTempPath
End Sub

Published quarta-feira, 6 de abril de 2011 10:28 by Paleo

Filed under:

Comments

No Comments

Leave a Comment

(required) 
(required) 
(optional)
(required)