Normal Save As Window

Question

It's kind of a pain to have to hit browse every time just to get to the normal windows Save As window.
In this particular instance, I'm working on a daily radio show and I would normally Save As and just start typing the date for the name (201111 would bring up a list of all files starting with 201111, so I would know what the last date is).
It may have something to do with the Mac/Windows integration, but maybe just use whatever default is there for the OS or give an option to use the new window or OS window?
JJ

Answer 1

> on mouseUp me
> folder = baGetFolder( the moviePath, "Save as..", 1+2,
"Select a folder", -1,
> 0 )
> ok= baCopyFile( the moviePath&"word.doc" ,
folder&"word.doc","IfNewer" )
> end
>
> Firstly, how can I save the directory choosen?
> and how can I bring up the
> "prompt message" asking whether user want to replace
the file or not?
Store the folder they choose in a global or property variable
and
reference it when files need to be copied. Perhaps something
like (watch
out for unintentional line breaks):
global gLocalFolder
on mouseUp me
gLocalFolder = baGetFolder( "", "Save as..", 1+2, "Select a
folder",
-1, 0 )
if gLocalFolder = EMPTY then exit -- user cancelled
tDestination = gLocalFolder & "word.doc"
if baFileExists(tDestination) then
-- prompt to overwrite
tChose = baMsgBox("The file 'word.doc' already exists."
&RETURN&
"Do you want to overwrite it?", "Overwrite...?", "YesNo",
"question", 1)
if ( tChose = "Yes" ) then
ok = baCopyFile( the moviePath & "word.doc",
tDestination,
"IfNewer+")
if OK <> 0 then
-- error copying file - see the docs for numbers and their
meanings
end if
end if
else
ok = baCopyFile( the moviePath & "word.doc",
tDestination, "IfNewer+")
if OK <> 0 then
-- error copying file - see the docs for numbers and their
meanings
end if
end if
end