Ciao a tutti, considerando che sono un principiante volevo chiedervi un piccolo ma grande aiuto. Ho prelevato questo script da freeASP.it che consete l'UpLoad. Con Dreamweaver ho aperto una pagina ASP.NET VB inserendo il seguente SCRIPT:
<%@ 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:
"
strMessaggioFinale = strMessaggioFinale & "Dimensione : " & mioFile.PostedFile.ContentLength & " bytes
"
strMessaggioFinale = strMessaggioFinale & "Tipologia File : " & mioFile.PostedFile.ContentType & "
"
strMessaggioFinale = strMessaggioFinale & "Percorso File : " & mioFile.PostedFile.FileName & "
"
catch strEccezzione As Exception
strMessaggioFinale = "Errore: UPLOAD FALLITO.
"
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 id="frmUpload" method="post" EncType="multipart/form-data" RunAt="Server">
<asp:Label id="Label1" runat="server" Text="File 1" />
<Input ID="mioFile" Type="File" RunAt="Server">
<asp:Button id="btUpload" text="Effettua Upload" OnClick="caricaFile" runat="server" />
<asp:label id="lbEsito" runat="Server" />
</form>
</body>
</HTML>
Andando sul mio server di prova però mi consente solo di inserire il file con il pulsante SFOGLIA ma non mi appare il pulsante UPLOAD.
Dove devo intervenire? Forse è una questione di percorsi da modificare nello script? Dove?
Scusate per le mille domande.
Grazie
Rispondi quotando
