USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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"
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página