Accessing local workstation's TEMP directory

[Frederick Chow]

Hi all,

Is there any way to access a local workstation's TEMP directory? Maybe it
needs a Windows API, but I don't know how to do it. Thanks for your
assistance.

Frederick Chow
Hong Kong.

 

[paul.robinson]

Hi
(Not Tested)

ChDrive "C:"
ChDir ("C:\Temp")
Do Events

Will change to the C:\Temp folder. Save and so on will be to this
folder. You might want to put this into an "On Error Return Next"
incase there is no C:\Temp

on error return next
Err.Clear
ChDrive "C:"
ChDir ("C:\Temp")
Do Events
If err.number<>0 then
msgbox "There is no C:\temp folder!"
end if
on error goto 0

regards
Paul

 

[Dick Kusleika]

Frederick:

Environ("Temp")

will return a string that is the path to the windows temp directory.

 

[Andrew Taylor]

This method gets the user's temp directory (tested under Win XP):

Option Explicit

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

Sub GetTempDir()
Dim lpBuffer As String, nBufferLength As Long, lResult As Long
lpBuffer = Space(255)
nBufferLength = 255
lResult = GetTempPath(nBufferLength, lpBuffer)
If InStr(lpBuffer, Chr(0)) > 0 Then ' trim trailing null character
lpBuffer = Left(lpBuffer, InStr(lpBuffer, Chr(0)) - 1)
End If
MsgBox " Temp dir is [" & lpBuffer & "]"

End Sub


hth
Andrew

 

[Frederick Chow]

Thanks for your quick response, but are there some Windows API that return
the Temp directory of a local workstation? Your approach only checks if the
temp directory is "C:\TEMP".

Frederick Chow

 

[K Dales]

Try Environ(Temp)

 

[Frederick Chow]

Hi all,

Is there any way to access a local workstation's TEMP directory? Maybe it
needs a Windows API, but I don't know how to do it. Thanks for your
assistance.

Frederick Chow
Hong Kong.