Upload in VB.NET

20 giugno 2002

Nel corso di questo articolo, analizzeremo come si effettua uno script di upload tramite ASP.NET sfruttando come linguaggio di scripting VB. Prima di incominciare a descrivere la parte tecnica, volevo “sollevare” moralmente tutti quanti dicendo che con ASP.NET l’operazione di upload è molto più semplice e facile da realizzare rispetto l’asp 3.0. (Si osservi l’articolo scritto da Davide Vogliotti per maggiori informazioni). Il codice necessario è pronto all’uso per l’upload è il seguente:

<%@ page language=”VB” %>
<script runat=”Server”>

Sub Page_Load(Sender as Object, e as EventArgs)
  
  dim strPercorsoFileUpload as string
  strPercorsoFileUpload = “c:\cartellaUpload”
  
  dim miaCartella as string
  miaCartella = Dir(strPercorsoFileUpload , vbDirectory)

  if miaCartella=””
    MkDir(strPercorsoFileUpload)
  end if
End Sub

Sub caricaFile(Sender as Object, e as EventArgs)
  
  ‘Ricavo il nome del file con percorso
  dim strFile
  strFile = mioFile.PostedFile.FileName

  ‘Ricavo il nome del file SENZA percorso
  Dim strNomeFile as string
  strNomeFile = System.IO.Path.GetFileName(strFile)

  dim strPercorsoFileUpload as string
  strPercorsoFileUpload = “c:\cartellaUpload”
  dim strMessaggioFinale as string

  ‘Effettuo UPLOAD con controllo errore
  Try
    mioFile.PostedFile.SaveAs( strPercorsoFileUpload & “\” & strNomeFile)
    strMessaggioFinale = “Upload avvenuto correttamente.”
    strMessaggioFinale = strMessaggioFinale & “Dati del file copiato:<br />”
    strMessaggioFinale = strMessaggioFinale & “Dimensione : ” & mioFile.PostedFile.ContentLength & ” bytes<br />”
    strMessaggioFinale = strMessaggioFinale & “Tipologia File : ” & mioFile.PostedFile.ContentType & “<br />”
    strMessaggioFinale = strMessaggioFinale & “Percorso File : ” & mioFile.PostedFile.FileName & “<br />”
    catch strEccezzione As Exception
    strMessaggioFinale = “Errore: UPLOAD FALLITO.<br />”
    strMessaggioFinale = strMessaggioFinale & strEccezzione.ToString
  End Try

  ‘Mostro esito upload a video
  lbEsito.text = strMessaggioFinale
End Sub
</script>

<html>
<head>
<title>Upload File in VB.NET</title>
</head>
<body>
 <form runat=”server” id=”frmUpload” method=”post” EncType=”multipart/form-data”>
 <asp:Label id=”Label1″ runat=”server” Text=”File 1″ />
 <br />
 <Input ID=”mioFile” Type=”File” RunAt=”Server”>
 <br />
 <asp:Button id=”btUpload” text=”Effettua Upload” OnClick=”caricaFile” runat=”server” />
 <br />
 <asp:label id=”lbEsito” runat=”Server” />
</form>
</body>
</html>

Se vuoi aggiornamenti su Upload in VB.NET inserisci la tua e-mail nel box qui sotto:
 
X
Se vuoi aggiornamenti su Upload in VB.NET

inserisci la tua e-mail nel box qui sotto:

Ho letto e acconsento l'informativa sulla privacy

Acconsento al trattamento di cui al punto 3 dell'informativa sulla privacy