[VB6] Errore runtime 70

[lucarr67]

Ciao a tutti.
Devo fare una semplicissima operazione: aprire in input un file. Il problema è che il file potrebbe essere ancora in fase di creazione (quindi in uso da un altro programma). Vorrei intercettare l'errore per ritentare la open dopo qualche secondo, ma non ci riesco...
Eppure è una cosa semplicissima...

Open File for input as #1
On Error goto Ritenta

E invece di saltare a Ritenta mi da "Errore run time 70 - Manca autorizzazione al file"... ???

Perchè non funge ???

[codo82]

Prova a mettere
On Error goto Ritenta
all'inizio della sub e comunque prima che avvenga l'errore

[lucarr67]

Si, l'avevo già provato... Se On Error è sull'istruzione Open l'errore viene generato subito quando tenta di fare la open. Se On Error è all'inizio della Sub, la prima volta che fa la open salta a Ritenta, poi, la seconda volta genera l'errore 70.
Strano, vero ?

[codo82]

prova a postare l'intera sub

[lucarr67]

E' banalissima... Anche così da l'errore !

[code]

Private sub LeggiFile(Filename as String)
On Error Goto Ritenta 'Provato a togliere e mettere

Ritenta:

Open Filename for Input as #1
On Error goto Ritenta 'Provato a togliere e mettere

Close #1

End sub

[xegallo]

appena dopo ritenta metti un close senza parametri