;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfPathNameLong (strPath)
If DirExist (strPath) Then Return FileNameLong (strPath : ".") : "\"
Return FileNameLong (strPath)
; DD.20110301.
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------


; Test.

strTest11 = Environment ("TEMP")           ; "C:\DOKUME~1\User\LOKALE~1\Temp"
strTest12 = udfPathNameLong (strTest11)    ; "C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Temp\"

strTest21 = Environment ("TEMP") : "\"     ; "C:\DOKUME~1\User\LOKALE~1\Temp\"
strTest22 = udfPathNameLong (strTest21)    ; "C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Temp\"

strTest31 = FileCreateTemp ("")            ; "C:\DOKUME~1\User\LOKALE~1\Temp\D2.tmp"
strTest32 = udfPathNameLong (strTest31)    ; "C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Temp\D2.tmp"

Exit