Declare Pfad$, Temp$, Temp#
Dim Temp#, 255

Pfad$ = @GetDir$("@")
If (@Del$(Pfad$,1,(@Len(Pfad$)-1)) <> "\")
   Pfad$ = Pfad$ + "\"
EndIf

~GetTempPath(255,Temp#)
Temp$ = @String$(Temp#,0)
Dispose Temp#