UPLOAD stabilire percorso

[victor8872]

Ciao a tutti
vorrei salvare i miei file uplodati dentro una cartella che si chiama archivi
ma non ci riesco

Mi fareste vedere come fare in questo codice grazie

Imports System
Imports System.web
Imports System.web.UI
Imports System.web.UI.WebControls
Imports System.web.UI.HtmlControls
Imports System.IO
Public Class uploadFile: Inherits page
protected withEvents CmdUpload as htmlInputbutton
protected lblInfo as Label
protected nome2 as Label
protected canc as hyperlink
protected fileInput as htmlInputFile
protected path_img as htmlInputText

private sub Page_load(sender as object, e as eventArgs) handles MyBase.load

path_img.visible=false
end sub


Private Sub CmdUpload_ServerClick(sender as object, e as eventArgs) handles CmdUpload.ServerClick
if fileInput.value = "" then
lblInfo.text = "Specificare file"
lblInfo.visible=true
else
'if fileInput.PostedFile.ContentType.StartsWith("image ") then



dim file_path as string
dim pre_file as string
dim serverfilename as string
'serverFilename = replace(path.getFileName (fileInput.postedFile.Filename)," ","_")
serverFilename = path.getFileName(fileInput.postedFile.Filename).To String().Replace(" ", "_")
'session("immagine_ok")=serverfilename



dim dirc as new directoryInfo(server.mappath("/" & path_img.value))

if dirc.exists then
pre_file = path_img.value & serverfilename
else
pre_file = path_img.value & "/" & serverfilename
end if
file_path = Server.mappath(pre_file)
fileinput.postedFile.saveAs(file_path)
lblInfo.text = serverfilename
nome2.text=fileInput.value
nome2.text=serverfilename

'lblinfo.text="[img] & session([/img]"
if (serverfilename="") then
CmdUpload.visible=true
else
CmdUpload.visible=false
end if



'catch err as exception
'lblInfo.text = err.message
'end try
'else
'lblInfo.text = "E' possibile caricare solo immagini"
'lblinfo.visible=true
end if

end sub
end Class

[djciko]

che errore ti restituisce ? dove te lo indica ?

[victor8872]

ora non mi da nessun errora, pero' mette i file uplodati dentro la cartella in cui si trovano i file aspx


Vorrei potere indicare io dove posizionare i file.

Si puo' fare?

Grazie

[djciko]

certo che puoi.

                    Dim nomefile As String
                    Dim percorso_immesso As String
                    Dim partiPercorso() As String

                    percorso_immesso = Trim(fileInput.Value)
                    partiPercorso = percorso_immesso.Split("\")
                    nomefile = partiPercorso(UBound(partiPercorso))

                    Dim percorsosalvataggio As String = "C:\uploads\" & nomefile

                    If File.Exists(percorsosalvataggio) Then
                        File.Delete(percorsosalvataggio)
                    End If
                    fileInput.PostedFile.SaveAs(percorsosalvataggio)

naturalmente con i permessi giusti in scrittura sulla cartella c:\uploads .......

[victor8872]

ma se fosse sul server del mio sito invece che su c?

Grazie ancora

[djciko]

il file system di solito raggiunge percorsi locali.

sinceramente non so se si possa usare per percorsi FTP o HTTP, ma ... non credo.

[victor8872]

non ci riesco...
grazie lo stesso

[djciko]

prova ad usare il codice che ti ho postato, lascia perdere per un attimo quello piu' lungo...
e vedi se funzia.

non e' cosa difficile, l'importante e' rendere lato server l'esecuzione del controllo -file-, giocare un po' col nome e percorso e salvare il file con PostedFile.SaveAs.

Pero' sinceramente non ho capito cosa intendi per "salvare sul server"....
La tua applicazione risiedendo sul server salva gia' su di esso...