[VB12] CREARE MESSAGGIO "file non trovato"

[Sonnyx74]

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

[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

[Sonnyx74]

Grazie Mille Renygade,
Come sempre mi sei stato di grande aiuto, avevo gia provato con "IF" "Else" ma come al solito avevo padellato la forma di scrittura, adesso mi funziona come volevo, anche se poi dovrò fare dei ritocchi, avevo provato a cercare su google come faccio sempre prima di scrivere sul forum ma probabilmente non formulavo bene la domanda per la ricerca perchè trovavo tutto all'infuori che la semplicità.
Saluti Sonny

[renygade]

Grazie Mille Renygade,
Come sempre mi sei stato di grande aiuto, avevo gia provato con "IF" "Else" ma come al solito avevo padellato la forma di scrittura, adesso mi funziona come volevo, anche se poi dovrò fare dei ritocchi, avevo provato a cercare su google come faccio sempre prima di scrivere sul forum ma probabilmente non formulavo bene la domanda per la ricerca perchè trovavo tutto all'infuori che la semplicità.
Saluti Sonny

Bene che hai risolto.
Un consiglio, per cercare con efficacia su google.. Se cerchi la documentazione di un metodo specifico di cui sai già il nome, il sito di riferimento è msdn della microsoft.
Se invece cerchi l'istruzione/i per risolvere un problema io di solito scrivo su google "vb.net" e la "questione" da risolvere in inglese. Ad esempio nel tuo caso ho scritto "vb.net" e "check if file exist".. e il gioco è fatto...