Find TEMP dir...

Via et lille API kald:

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

Public Function GetTempPath() As String
  Dim Temp As String
  Dim TempLen As Long
 
  Temp = Space(MAX_PATH)
  TempLen = apiGetTempPath(MAX_PATH, Temp)
  GetTempPath = Left(Temp, TempLen)
End Function

Philip

På menuen Project under References... kan du sætte en reference til Microsoft Scripting Runtime og indsætte følgende kode der hvor du skal have fat i TEMP dir:

Dim fso As FileSystemObject
Dim strTempDir As String

Set fso = New FileSystemObject

strTempDir = fso.GetSpecialFolder(TemporaryFolder)

Davs Martin

Tag et kik på http://www.vb-world.net
Her er kode til det.