27.06.2014 Views

INFORMATICA MEDICA

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Esempio (1)<br />

<br />

<br />

<br />

Sub RiceviFile (Source As Object, e As EventArgs)<br />

Dim NomeFile As String<br />

If Not (Request.Files.Count = 0) Then<br />

Try<br />

NomeFile = Filel.Value<br />

Request.Files("Filel").SaveAs ("c:\temp\" &<br />

NomeFile.Substring(NomeFile.LastlndexOf("\") +1))<br />

Messaggio.InnerHtml = "File " & NomeFile & " ricevuto!"<br />

Catch exc As Exception<br />

Messaggio.InnerHtml = "Errore durante il salvataggio del file<br />

" & NomeFile & ": " & exc . ToString ( )<br />

End Try<br />

End If<br />

End Sub<br />

<br />

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!