Upload Baol, nome file dopo Autorename

[AltF4]

Buongiorno a tutti, ho fatto una ricerca sul forum, ma non sono riuscito a trovare una soluzione, probabilmente è più semplice di quello che penso..

Utilizzando l'upload di Baol74 ho attivato la funzione Autorename, ma una volta rinominato il file non mi da il nome rinominato, ma il nome originale, non riesco proprio a capire perchè

<%
Dim oUpload
Set oUpload = new cUpload
	oUpload.AutoRename = True
	Percorso = "/public/"
	oUpload.SetPath Percorso
	oUpload.Upload
	oUpload.Save
	oUpload.GetFileName()
	GetFileName = oUpload.GetFileName()
Set oUpload=Nothing

	Dim FileCaricato
	FileCaricato = GetFileName
%>

poi inserisco il nome del file in un campo di testo:

<input name="File" type="text" id="File" value="<%=FileCaricato%>" readonly>

Qui compare il nome originale!


Dov'è l'errore?

[LulaMae]

Hai distrutto l'oggetto, come pensi di recuperarlo?:

Prova così:

Set oUpload = new cUpload  
oUpload.SetPath "/public/" 
oUpload.Autorename = True 
oUpload.OverWrite = False 
oUpload.EnabledImageSize = True 
oUpload.Load() 
NomeFile = oUpload.GetFileName() 
NomeFile = replace(NomeFile , " ", "_") 
NomeFile = replace(NomeFile , "-", "_")			 			 
oUpload.SaveAs NomeFile   
Set oUpload=Nothing 		 
response.Write "il file " & NomeFile &" è stato salvato 

"
response.end

[AltF4]

Hai proprio ragione! Grazie mille, risolto!

Con il tuo aiuto ovviamente!!! Grazie ancora!!!

[AltF4]

Riprendo questa discussione..

Ho fatto alcune prove e tutto ha funzionato correttamente, ma se esegui l'upload di un file che ha nel nome gli spazi mi da problemi.

In pratica l'upload funziona correttamente, invio questo:

nome del file.pdf

e sul server viene uploadato:

nome del file.pdf

il problema è che quando faccio inserire dal sistema il nome del file modificato dall'upload all'interno di un campo di testo, mi da questo:

nome_del_file.pdf

Infatti nello script c'è:

	NomeFile = replace(NomeFile , " ", "_") 
	NomeFile = replace(NomeFile , "-", "_")

Ma come mai il nome del file uploadato è quello originale, mentre nel campo di testo mi riporta il nome modificato?

Ecco tutto la parte di script "incriminata"

<%
Dim oUpload
Set oUpload = new cUpload
	oUpload.AutoRename = True
	oUpload.OverWrite = False 
	Percorso = "/public/"
	oUpload.SetPath Percorso
	oUpload.Upload
	oUpload.Save
	NomeFile = oUpload.GetFileName() 
	NomeFile = replace(NomeFile , " ", "_") 
	NomeFile = replace(NomeFile , "-", "_")			 			 
	oUpload.SaveAs NomeFile   
Set oUpload=Nothing 
%>

e qui il campo di testo:

<input name="Allegato" type="text" id="Allegato" value="<%=NomeFile%>" readonly>