Don't error when file directory doesn't exist.

Instead, ask for a new place to save to.
This commit is contained in:
Merlijn Wajer 2010-03-13 13:17:04 +01:00
parent 69899f58fa
commit 25fbd55694
1 changed files with 8 additions and 2 deletions

View File

@ -2251,8 +2251,14 @@ begin
begin
Result := (ScriptFile <> '');
if Result then
begin;
SynEdit.Lines.SaveToFile(ScriptFile);
begin
try
SynEdit.Lines.SaveToFile(ScriptFile);
except
mDebugLn('Cannot save the file. Try specifying a different location.');
result := SaveCurrentScriptAs;
exit;
end;
OnSaveScript(scriptfile);
end
else