Page 1 of 2

function that return the temp directory of the logged user

Posted: Sat Mar 11, 2006 2:02 pm
by jacquet philippe
I am looking for the instruction that return the path of the temp directory
win2000 and WinXp
(c:\documents and settings\user1\.....)
Thanks
Philippe Jacquet

Re: function that return the temp directory of the logged u

Posted: Sat Mar 11, 2006 6:23 pm
by Enrico Maria Giordano
GetEnv( "TEMP" )

EMG

Thanks a lot

Posted: Sun Mar 12, 2006 9:59 am
by jacquet philippe
Thans
Philippe Jacquet

Posted: Mon Mar 13, 2006 4:14 pm
by James Bott
Philippe,

Enrico's solution won't always work. Here is a more comprehensive solution.

James

Code: Select all

//--- Returns temporary directory name without trailing backslash
function getTempDir()
   local cDir   := GetEnv("TEMP")
   if empty(cDir)
      cDir := GetEnv("TMP")
   endif
   if Right( cDir, 1 ) == "\"
      cDir := SubStr( cDir, 1, Len( cDir ) - 1 )
   endif
   if !empty(cDir)
      if !lIsDir(cDir)
         cDir := GetWinDir()
      endif
   else
      cDir := GetWinDir()
   endif
return cDir

Posted: Mon Mar 13, 2006 4:27 pm
by Vladimir Grigoriev
Hi James.
I think your code is incomplete. :)
It may so occur that there are defined two variables TEMP and TMP in environment. For example TEMP=C:\TEMP and TMP=C:\TMP while directory C:\TEMP does not exist but directory C:\TMP does exist.
In this case I think directory C:\TMP should be used instead of GetWinDir().

Vladimir Grigoriev

Posted: Mon Mar 13, 2006 4:40 pm
by Vladimir Grigoriev
Maybe something as the following :)

//--- Returns temporary directory name without trailing backslash
function GetTempDir()
local cTargetDir, cTempDir, cTmpDir
local lTempExist, lTmpExist

cTempDir := GetEnv( "TEMP" )
cTmpDir := GetEnv( "TMP" )

if ( Right( cTempDir, 1 ) == "\" )
cTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 )
endif

if ( Right( cTmpDir, 1 ) == "\" )
cTmpDir := SubStr( cTmpDir, 1, Len( cTmpDir ) - 1 )
endif

lTempExist := .F.
if ( !empty( cTempDir ) )
if ( IsDir(cTempDir ) )
lTempExist := .T.
endif
endif

lTmpExist := .F.
if ( !empty( cTmpDir ) )
if ( IsDir(cTmpDir ) )
lTmpExist := .T.
endif
endif

do case
case ( lTempExist )
cTargetDir := cTempDir
case ( lTmpExist )
cTargetDir := cTmpDir
otherwise
cTargetDir := GetWinDir()
endcase

return ( cTargetDir )

Posted: Mon Mar 13, 2006 4:45 pm
by James Bott
Vladimir,

Thanks for the improvement.

James

Posted: Mon Mar 13, 2006 4:56 pm
by Vladimir Grigoriev
Also the statement

if ( Right( cTempDir, 1 ) == "\" )
cTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 )
endif

is not correct enough. :D

The following would be more correct.

if ( ( Right( cTempDir, 1 ) == "\" ) .AND. ! ( Right( cTempDir, 2 ) == ":\" ) )
cTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 )
endif

Vladimir Grigoriev

Posted: Mon Mar 13, 2006 5:24 pm
by Enrico Maria Giordano
James Bott wrote:Enrico's solution won't always work.
I used GetEnv( "TEMP" ) for at least 10 years and got no reports about problems with it.

EMG

Posted: Mon Mar 13, 2006 5:33 pm
by Vladimir Grigoriev
Enrico Maria
I used GetEnv( "TEMP" ) for at least 10 years and got no reports about problems with it.
It is very boring! :D

Posted: Mon Mar 13, 2006 5:42 pm
by James Bott
Enrico,

Yea, like Valdimir says, thats too easy.

I suppose if getEnv("TEMP") returns a blank string then any temp files will just be written to the current directory. There probably won't be any error message. I'm not saying there is anything wrong with that, just that you probably wouldn't know if it was not working as expected.

James

Posted: Mon Mar 13, 2006 8:18 pm
by Enrico Maria Giordano
If GetEnv( "TEMP" ) should have return an empty string then I would consider more correct to put temporary files in the current directory rather than in WINDOWS directory.

EMG

Posted: Mon Mar 13, 2006 9:09 pm
by James Bott
Enrico,

I agree. I didn't write the function I posted, I just had it in my notes. I never really carefully looked at what it was doing.

James

Posted: Tue Mar 14, 2006 9:41 am
by Vladimir Grigoriev
Enrico Mario
I would consider more correct to put temporary files in the current directory
Buon girno.
In the current directory or in a directory from which your program started?
Vladimir Grigoriev

Posted: Tue Mar 14, 2006 10:07 am
by Enrico Maria Giordano
In the current directory (that is the one from which my program started, in my environment).

EMG