vb6 run-time error 75

[leo85]

ho un programma che apre i file di testo tramite commondialog, quando però lanciata la finestra di commondialog premo la x o "annulla" mi spunta un messaggio di errore con scritto:
"Run-time error '75'
Path/File access error"

come posso evitare questo errore?
grazie.

[oregon]

Prima di aprire il file, controlla che la stringa con il nome non sia vuota.

[leo85]

scusa, forse mi sono espresso male.
Questo errore non compare quando premo "apri" senza aver specificato il nome del file, ma quando tento di chiudere la finestra di commondialog premendo la "X" o "Annulla"

[optime]

l'errore non è nella common dialog, ma in quello che fai immediatamente dopo. quando fai annulla non ti viene restituito nulla, ed è questo che devi controllare prima dell'azione successiva (in cui sfrutterai appunto quel nome-di-file)

[oregon]

Originariamente inviato da leo85
scusa, forse mi sono espresso male.
Questo errore non compare quando premo "apri" senza aver specificato il nome del file, ma quando tento di chiudere la finestra di commondialog premendo la "X" o "Annulla"

Appunto ... avevo capito ... in quel caso il nome del file non esiste e tu tenti di aprirlo ...

Qual e' il codice che hai scritto ?

[leo85]

ecco il codice

Private Sub APRI_Click()
Select Case "APRI"
Case Is = "APRI"
CommonDialog1.Filter = "text files| *.bat"
CommonDialog1.ShowOpen
Text1 = CommonDialog1.Filename
Open CommonDialog1.FileName For Input as #1
Text1.Text = Input (LOF(1), #1)
Close #1
Text1.Text = Len(Text1.Text)
End Select
End Sub

[optime]

vedi? tu tratti sempre e comunque CommonDialog1.FileName, indipendentemente dal fatto che tu l'abbia selezionato o no. Ti basterà testare se è vuoto, nel qual caso NON eseguirai il codice successivo.

[oregon]

Originariamente inviato da optime
... Ti basterà testare se è vuoto, nel qual caso NON eseguirai il codice successivo.

Cosa che avrebbe potuto controllare da solo, dato che l'errore si ha esattamente sulla linea

Open CommonDialog1.FileName For Input as #1

e quando il VB si ferma CommonDialog1.FileName e' vuoto ...

[optime]

Originariamente inviato da oregon
Cosa che avrebbe potuto controllare da solo, dato che l'errore si ha esattamente sulla linea

Open CommonDialog1.FileName For Input as #1

e quando il VB si ferma CommonDialog1.FileName e' vuoto ...

se fosse stato in grado di controllarlo da solo, l'avrebbe fatto e non avrebbe aperto il 3d...

[leo85]

grazie, ancora una volta, dell' aiuto