Problema di Visual Basic -

[alexzanon]

Gestione errori

Salve a tutti!
Vorrei chiedere la soluzione di un problemino riguardante un algoritmo in Visual Basic.

Io voglio controllare in fase di esecuzione che due files esistano sul PC.
Se uno dei due non esiste, usando l'istruzione OPEN...FOR INPUT.. si genera un errore che posso gestire con l'istruzione ON ERROR GOTO...

Ma come faccio a impostare due gestioni diverse a seconda che sia il PRIMO file o il SECONDO a non esistere?? In pratica a me servirebbe sapere come fare a dire "se non esiste il file pippo.txt allora crea pippo.txt, se non esiste il file paperino.txt allora crea il file paperino.txt"
Ho provato con un doppio ON ERROR GOTO... messo nei punti in cui mi serve, ma ho notato che tiene valido solo il PRIMO che viene incontrato.

Come posso fare per risolvere??

Grazie!
Alex

[hydra]

Ti posto un esempio di come potresti fare:

Dim Err as Byte

(Parte principale)

Pippo:
Err = 1
Open Pippo.txt for Input as 1
On error goto Errore

Paperino:
Err = 2
Open Paperino.txt for Input as 1
On error goto Errore

Main:
(Resto del codice...)

Goto fine

Errore:
If Err = 1 ' Pippo.txt
' Crea il file Pippo.txt
Goto Paperino
ElseIf Err = 2 then ' Paperino.txt
' Crea file paperino.txt
Goto Main
End If

Fine:

In questo caso se tu trovi che il file pippo.txt non esiste gestisci l'evento, poi torni al punto del codice e processi il file paperino.txt, torni nel codice e procedi. Alla fine del main C'è un goto fine per saltare il codice relativo alla gestione errori. Se non vuoi mettere un goto fine puoi settare Err con un valore che non sia processato nel blocco errore. Spero di averti reso un po' l'idea, se hai bisogno chiedi pure.