[VB.NET] Esistenza file, gestire l'exception

[brainforce]

Semplicemente leggo un file txt di nome licenza.txt e restituisco il suo valore. Ora l'if mi controlla che il file esiste e fin quì ok, ma se il file non esiste mi restituisce errore, ed io vorrei gestire questa situazione facendo uscire un messaggio del tipo "file non prsente"

Imports System
Imports System.IO
Imports System.Collections

Module Module1

    Dim licenza As New StreamReader("licenza.txt")
    Dim giorni As String = ""

    Sub Main()
        Dim file_esiste As String = "licenza.txt"
        If File.Exists(file_esiste) Then
                'FileCopy("c:\test.txt", "c:\new.txt")
                giorni = licenza.ReadLine()
                licenza.Close()
                MsgBox(giorni)
            Else
                MsgBox("Licenza scaduta")
            End If
    End Sub
End Module

O provato anche col boolean, ma il problema e che non riesco a gestire il False.

P.S. O snellito il codice inserendo il fileexist

[ans]

L'errore lo hai su:
Dim licenza As New StreamReader("licenza.txt")

dichiari uno StreamReader per un file che non esiste.

Il controllo File.Exists lo devi fare prima di dichiarare licenza.

[brainforce]

Ans innanzi tutto ti ringrazio, o cambiato la posizione del File.Exist e lo messo prima di dichiarare licenza, ed ora funge.

Solo, mi spiegheresti come mai se dihiaravo prima lo streamreader, fuori dalla sub, non funzionava?

[ans]

come detto, se il file non esiste hai errore, devi al massimo dichiarare l'oggetto StreamReader senza assegnare il file, poi fai il controllo se il file esiste, quindi assegni il file.