Consiglio UPLOAD

[Skyscraper84]

Salve,
chi mi consiglia un buon codice per caricare file di un max 4 mb sul server tramite form e che non occorra una laurea per farlo funzionare???

Ho la necessità anche di rinominare i file dopo l'upload e creare la cartella di destinazione se non esistente

avevo sviluppato tutto con persist per poi scoprire che sul server dedicato aruba non è installato e che i componenti non sono gratuiti...

Ciao
Grazie

[cavicchiandrea]

Vedi se questo può fare al caso tuo altrimenti cerca Upload baol qui sul forum.

[Skyscraper84]

Ok grazie sto utilizzando baol

Ho provato l'upload e va bene ma ho qualche dubbio...

come faccio a far creare la cartella se non esiste?
come faccio a recuperare l'estensione del file?
come recupero i dati inseriti in altre textbox?

Grazie
Ciao
Fabio

[Roby_72]

1) Con l'oggetto fileSystemObject, metodo FileExists()
2) Avendo il nome del file, con l'istruzione InstrRev torni indietro dalla fine fino al punto. Ciò che hai letto è l'estensione. Non ricordo, ma credo che uno dei metodi dell'uplaod di Baol consentisse di recuperare l'estensione.
3) Con Upload.Form("nomecampo"), qui trovi lo script e la documentazione:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[michele.santoro]

Originariamente inviato da Skyscraper84
Salve,
chi mi consiglia un buon codice per caricare file di un max 4 mb sul server tramite form e che non occorra una laurea per farlo funzionare???

Ho la necessità anche di rinominare i file dopo l'upload e creare la cartella di destinazione se non esistente

avevo sviluppato tutto con persist per poi scoprire che sul server dedicato aruba non è installato e che i componenti non sono gratuiti...

Ciao
Grazie

Credo tu ti stia sbagliando su A...a il componente è disponibile, vedi qui

Scusa, come non detto, mi era sfuggito che sei su server dedicato.

[Skyscraper84]

Roby con il codice....

<%

	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "\public\cud"
		oUpload.Upload
		IdCud = Upload.Form("id_cud")
		CFisc = Upload.Form("codfisc_cud")

		oUpload.SaveAs IdCud & "-" & CFisc & "mario2.pdf"

		Set oUpload=Nothing

%>

mi da l'errore

Microsoft VBScript runtime error '800a01a8'

Object required: 'UpLoad'

/upload_richiestacud1.asp, line 10

e la riga 10 è:
IdCud = Upload.Form("id_cud")


il mio form è....

 response.write "<form action=""upload_richiestacud1.asp"" method=""post"" enctype=""multipart/form-data"" name=""form"">"
response.write "<input type=""hidden"" name=""id_cud"" value=""" & cud & """>"
response.write "<input type=""hidden"" name=""codfisc_cud"" value=""" & rs_duplicati_sel("CodiceFiscale") & """>"
response.write "
Allega richiesta firmata <input type=""file"" name=""richiesta"">    
response.write "
<input type=""submit"" value=""Invia"">"
 response.write "</form>"

[Skyscraper84]

Risolto grazie!