From 74ba76184e1d3e4d26fac198e5e82bc20fef11dd Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 30 Dec 1997 13:35:22 +0000
Subject: [PATCH] Controllo esistenza file in creazione zip

git-svn-id: svn://10.65.10.50/trunk@5816 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba1600.cpp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/ba/ba1600.cpp b/ba/ba1600.cpp
index 9b8890a25..edbebb175 100755
--- a/ba/ba1600.cpp
+++ b/ba/ba1600.cpp
@@ -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);