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"
codice:
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