Come intercettare ed evitare questo errore bloccante?

[lotto_tom75]

Talvolta quando vado a scrivere sul mio file di output riscontro questo errore bloccante... che richiede l'azione di sblocco cliccando su OK e poi di nuovo su NO alla richiesta "mostrare altri messaggi?".

Vorrei evitare, se possibile..., il verificarsi di questo blocco per garantirmi la fine dell'elaborazione automatica relativa...

Ma come?



Grazie

 

[salvo50]

Ciao Lotto_Tom75, succede anche a me, ma con altri messaggi, non ricordo quali, ma cliccando su OK e poi di nuovo su NO alla richiesta "mostrare altri messaggi, come risolvo, guardo nell'output se ha fatto tutto quello che mi aspetto in base al programma che ho impostato, è sicuramente qualcosa non l'ha fatto, rivedere la riga o le righe che interessano, magari sembrano giuste, ma lui (lo script) non le piacciono come le hai impostate tu, li vuole come dice lui (lo script), bisogna scoprire qual'è la prassi corretta.

 

[lotto_tom75]

Dunque il primo prob non so come... ma sembra si sia auto... risolto

Ad ogni modo me ne è sopraggiunto un altro...



Il pezzo di codice cui si riferisce sembra che sia questo:

   sfilexcollimazionefull = ".\filexanalisicollimanze.txt"
   filerisultanzecollimazione = ".\risultanzecollimazione.txt"
   ReDim numeri(90,2)
   ReDim nr(90)
   If FileEsistente(sfilexcollimazionefull) Then
      Call Messaggio("Lettura file di testo x collimazioni")
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sfilexcollimazionefull,aRighe)
      For k = 0 To UBound(aRighe)
         Scrivi "riga " & k & ": " & aRighe(k)
         If aRighe(k) <> "" Then
            Call SplitByChar("." & aRighe(k),".",nr)
            For k2 = 1 To UBound(nr)
               Scrivi "-" & nr(k2) & "-"
               numeri(nr(k2),1) = numeri(nr(k2),1) + 1 ''' contatore presenze
               numeri(nr(k2),2) = nr(k2)
            Next
         End If
      Next
      end if

A meno che con il 75 davanti l'errore non si riferisca alla riga del codice che lo genera...

In questo caso sarebbe questo

Dim filegrupponumericobaseiniziale
   filegrupponumericobaseiniziale = ".\filegrupponumericobaseiniziale.txt"
   If FileEsistente(filegrupponumericobaseiniziale) Then '<< riga 75!
      Call EliminaFile(filegrupponumericobaseiniziale)
   End If
   filegrupponumericobaseiniziale = ".\filegrupponumericobaseiniziale.txt"

Sia nell'uno che nell'altro caso come potrei "rattoppare" al fine di non mostrare più l'errore riportato sopra e quindi poter proseguire l'analisi automatica senza interventi "manuali" di sblocco... ?

Thanks!