[VB12] CREARE MESSAGGIO "file non trovato"

[renygade]

Salve a Tutti,
Io devo ricercare un file excel con un nome specifico che che determino in una textbox, fino a qui tutto ok il programma lo trova e mi carica i dati del file nelle mie textbox dedicate.........il problema mi sorge quando questo file non è stato generato o è gia stato archiviato, perchè ovviamente non lo trova e mi si blocca, vorrei generare un messaggio che mi avverte che il file non c'è in quella cartella o comunque che mi avverta che non esiste o è stato archiviato, ho provato alcune opzioni integrando il comando IF THE ELSE ma niente da fare, mi potete suggerire qualcosa?
Di seguito il programma scritto Grazie,

Private Sub CaricaDati_Click(sender As Object, e As EventArgs) Handles CaricaDati.Click
Dim oExcel1 As Object
Dim oBook1 As Object
Dim oSheet1 As Object


oExcel1 = CreateObject("Excel.Application")
oBook1 = oExcel1.workbooks.open("C:\Users\Laviola\Desktop\P rogetto\Dati Contratto " + Texnazione1.Text + ".xlsx") Then
oSheet1 = oBook1.Worksheets(1)
Me.Texnominativo.Text = oSheet1.Range("D3").value
Me.Texreitanlo.Text = oSheet1.Range("H3").value
Me.Texcategoria.Text = oSheet1.Range("D4").value
Me.Texresanet.Text = oSheet1.Range("H4").value
Me.Texsso.Text = oSheet1.Range("D5").value
Me.Texindfegio.Text = oSheet1.Range("H14").value
Me.Texlivello.Text = oSheet1.Range("D6").value
Me.Texscatanz.Text = oSheet1.Range("H15").value
Me.Texmatricola.Text = oSheet1.Range("D7").value
Me.Texresneimp.Text = oSheet1.Range("H7").value
Me.Texdataass.Text = oSheet1.Range("D8").value
Me.Texindesme.Text = oSheet1.Range("H8").value
Me.Texdipartimento.Text = oSheet1.Range("D9").value
Me.Texindrepme.Text = oSheet1.Range("H9").value
Me.Texposizione.Text = oSheet1.Range("D10").value
Me.Texridorlame.Text = oSheet1.Range("H10").value
Me.Texnazione.Text = oSheet1.Range("D11").value
Me.Texminimo.Text = oSheet1.Range("H17").value
Me.Texlocalita.Text = oSheet1.Range("D12").value
Me.Texanno.Text = oSheet1.Range("D13").value
Me.Texquostra.Text = oSheet1.Range("H13").value
Me.Texdatace.Text = oSheet1.Range("D14").value
Me.Texapccnl.Text = oSheet1.Range("H19").value
Me.Texinventiva.Text = oSheet1.Range("H20").value
Me.Texasspers.Text = oSheet1.Range("H21").value
Me.Texduratace.Text = oSheet1.Range("D15").value
Me.Texcommessa.Text = oSheet1.Range("D18").value
Me.Texcliente.Text = oSheet1.Range("D17").value
Me.Texturnazione.Text = oSheet1.Range("D16").value
Me.Texscatnum.Text = oSheet1.Range("G15").value
Me.Texdifferenza.Text = oSheet1.Range("H5").value
Me.Textotretrib.Text = oSheet1.Range("H11").value
Me.Textotscatanz.Text = oSheet1.Range("H18").value
Me.Textotale.Text = oSheet1.Range("H22").value
oSheet1 = Nothing
oBook1.Close()
oBook1 = Nothing
oExcel1.Quit()
oExcel1 = Nothing
End Sub

Ciao
Ci sono almeno 3 modi per fare quando chiedi.. Hai provato a cercare un minimo su google?
C'è il namespace IO che mette a disposizioni metodi apposta..
Vedi ad esempio qui:
http://msdn.microsoft.com/it-it/libr...=vs.90%29.aspx

Oppure anche un bel try Catch ex per l'istruzione "oExcel1.workbooks.open("C:\Users\Laviola\Desktop\ Progetto\Dati Contratto " + Texnazione1.Text + ".xlsx")"...

Inoltre la prossima volta usa il tag

codice

Ciao