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:
parent
45013792aa
commit
74ba76184e
@ -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);
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user