Buongiorno a tutti, una domandona.
Come posso convertire questo :
Messaggio di errore del compilatore: BC30311: Impossibile convertire il valore di tipo 'String' in 'System.Web.HttpPostedFile'.
Errore nel codice sorgente:
Riga 20: dim strFile
Riga 21: dim path as HttpPostedFile
Riga 22: path = "mioFile" & i
Riga 23:
Riga 24: strFile = path.PostedFile.FileName
Grazie
Mungo Mauro
![L'avatar di [-MaRcO3-]](image.php?u=28377&dateline=1062583830 "L'avatar di [-MaRcO3-]")
oFile è un campo di input di tipo file
<input type="file" id="oFile" RUNAT="server" />
Spero di esserti stato utile.codice:Dim strFileName as string Dim strFilePath as string Dim strFolder as string strFolder = server.MapPath("../cartellaDiDestinazione/") 'Prende il nome del file di cui si sta facendo l'upload strFileName = oFile.PostedFile.FileName strFileName = path.GetFileName(strFileName) 'definisco il percorso del file che andrò a salvare nel server strFilePath = strFolder & strFileName
Ciao
Marco
Forse e meglio che ti posto il codice :
<%@ page language="VB" %>
<script runat="Server">
Sub Page_Load(Sender as Object, e as EventArgs)
dim strPercorsoFileUpload as string
strPercorsoFileUpload = Server.MapPath("file")
dim miaCartella as string
miaCartella = Dir(strPercorsoFileUpload , vbDirectory)
if miaCartella=""
MkDir(strPercorsoFileUpload)
end if
End Sub
Sub caricaFile(Sender as Object, e as EventArgs)
dim i as integer
for i = 0 to 1
'Ricavo il nome del file con percorso.
dim strFile
dim path
path = "mioFile" & i
strFile = path.PostedFile.FileName
'Ricavo il nome del file SENZA percorso.
Dim strNomeFile as string
strNomeFile = System.IO.Path.GetFileName(strFile)
dim strPercorsoFileUpload as string
strPercorsoFileUpload = Server.MapPath("file")
dim strMessaggioFinale as string
'Effettuo UPLOAD con controllo errore
Try
path.PostedFile.SaveAs( strPercorsoFileUpload & "\" & strNomeFile)
strMessaggioFinale = "Upload avvenuto correttamente."
strMessaggioFinale = strMessaggioFinale & "Dati del file copiato:
"
strMessaggioFinale = strMessaggioFinale & "Dimensione : " & path.PostedFile.ContentLength & " bytes
"
strMessaggioFinale = strMessaggioFinale & "Tipologia File : " & path.PostedFile.ContentType & "
"
strMessaggioFinale = strMessaggioFinale & "Percorso File : " & path.PostedFile.FileName & "
"
strMessaggioFinale = strMessaggioFinale & "File inviati : " & i & "
"
catch strEccezzione As Exception
strMessaggioFinale = "Errore: UPLOAD FALLITO.
"
strMessaggioFinale = strMessaggioFinale & strEccezzione.ToString
End Try
'Mostro esito upload a video
lbEsito.text = strMessaggioFinale
next
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="mioFile0" Type="File" RunAt="Server">
<input id="mioFile1" type="File" runat="Server">
<asp:Button id="btUpload" text="Effettua Upload" OnClick="caricaFile" runat="server" />
<asp:label id="lbEsito" runat="Server" />
</form>
</body>
</HTML>
Mungo Mauro
Permessi di invio
Rispondi quotando