Controllo esistenza file in creazione zip

git-svn-id: svn://10.65.10.50/trunk@5816 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-12-30 13:35:22 +00:00
parent 45013792aa
commit 74ba76184e

View File

@ -901,7 +901,7 @@ void TFascicolator_mask::save()
bool TFascicolator_mask::zip_file(const char* archive, const char* file) const
{
TWait_cursor hourglass;
TFilename cmd;
TFilename cmd;
// -1 compress faster; -9 compress better
cmd << "zip.pif " << " -1 " << archive << ' ' << file;
TExternal_app app(cmd);
@ -1061,6 +1061,19 @@ bool TFascicolator_mask::zip_module(const TString& main_module, bool agg) const
break;
}
// Se non trovo anche uno solo dei files nella lista, è un casino
if (_access(row->get(0),0))
{
TString msg(128);
msg << "Impossibile aprire il file " << row->get(0) << ". Interrompo ?";
if (yesno_box(msg))
{
aborted = TRUE;
break;
}
}
// Aggiungo il nome corrente alla lista dei files da compattare
cmd << ' ' << row->get(0);