... ******************************** Function DirTempdoWindows() Local cDir := GetEnv("TEMP") // Se Vazio cDir Entao cDir := GetEnv("TMP") If Right( cDir, 1 ) == "\" cDir = SubStr( cDir, 1, Len( cDir ) - 1 ) EndIf If !Empty(cDir) If !lIsDir(cDir) cDir := GetWinDir() ...