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.

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

Frederick:

Environ("Temp")

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

--
Dick Kusleika
MS MVP - Excel
www.dailydoseofexcel.com

Frederick Chow wrote:
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.

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 wrote:
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.

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

wrote in message
oups.com...
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

Try Environ(Temp)
--
- K Dales


"Frederick Chow" wrote:

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.