Ayuda ventanas muy

Hola que tal.
Estoy haciendo una lista de propiedades en director y quiero almacenar estas listas en un fichero txt.
Con el xtra muy lo consigo, pero abriéndome la típica ventana de windows guardar como:
Me gustaría que me guardara los datos directamente, es decir no como la ventana guardar como:
Aquí te paso los controladores que he creado.
Un controlador para cargar y otro para salvar:
on saveDatabase
-- ask user for a file name
fileObj = new(Xtra "FileIO")
filename = displaySave(fileObj, "Save Database", "database.txt")
if filename = "" then exit
-- create file and write to it
createFile(fileObj,filename)
openFile(fileObj,filename, 2)
writeString(fileObj, string(gDatabase))
closeFile(fileObj)
end
-- open an existing database file
on openDatabase
-- ask user for a file
fileObj = new(Xtra "FileIO")
filename = displayOpen(fileObj)
if filename = "" then exit
-- open the file and read the text
openFile(fileObj, filename, 1)
text = readFile(fileObj)
closeFile(fileObj)
-- try to convert the text to a list
database = value(text)
if not listP(database) then
-- not a list
alert "Not a valid database file."
else
-- is a list, set database
gDatabase = database
end if
end