Buongiorno,
in una form ho la necessità di creare una tabella msql inviare una mail e effettuare l'upload di un file.
Visto che non sono molto esperto ho faticato un po' ad effettuare le prime due ma ci sono riuscito.
Sull'upload già in nell'editor mi segnala l'errore in oggetto ovvero che PostedFile' is not a member of 'System.Web.UI.WebControls.TextBox'.
Non riesco a venirne a capo....
posto il codice...
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Import Namespace="ceiweb" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Text.RegularExpressions" %>
<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<%@ Import Namespace="System.Web.UI.WebControls" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.Net.Mail" %>
<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 = "" Then
MkDir(strPercorsoFileUpload)
End If
End Sub
Sub caricaFile(Sender As Object, e As EventArgs)
'Ricavo il nome del file con percorso
Dim strFile As String
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
........
<asp:Label id="Label1" runat="server" Text="seleziona file da caricare" />
<asp:TextBox ID="mioFile" runat="server"></asp:TextBox>
<br />
<asp:Button id="btUpload" text="Effettua Upload" OnClick="caricaFile" runat="server" />
<br />
<asp:label id="lbEsito" runat="server" />