upload di Baol .. controllo nome file

[angelicab]

ciao!
sto utilizzando questo codice di Baol per effettuare l'upload di file video ..

<%
Dim oUpload
dim nomefile
Set oUpload = new cUpload
oUpload.SetPath "..\..\video_web\"
oUpload.Autorename = false
oUpload.OverWrite = true
oUpload.EnabledImageSize = True
oUpload.Load()
oUpload.Filter = oUpload.FilterVideo() & AND_ & oUpload.FilterSize(65000000)
	While Not oUpload.EOF
		oUpload.Save()	
		nomefile = oUpload.GetFileName()
		oUpload.MoveNext
	Wend
	if oUpload.Count = 0 then
		response.write("nessun upload effettuato! controlla il file inviato!")		
	end if
Set oUpload=Nothing
%>

ho abilitato l'opzione OverWrite che permette di sovrascrivere file con lo stesso nome perchè non voglio che venga cambiato il nome del file ... però vorrei controllare se esiste già un file con lo stesso nome di quello che si sta inviando con la procedura di upload .. come posso fare??

[kalosjo]

filesystemobject

[angelicab]

lo so .. ma dove devo inserirlo all'interno della procedura di upload??

[kalosjo]

credo qui

nomefile = oUpload.GetFileName()

dopo che sai il nome del file puoi fare un controllo se esiste.

Ma vedo che una riga prima hai già salvato...

[angelicab]

infatti .. ho provato ad inserirlo prima ma fa lo stesso l'upload



BAOL !!!!!! dove sei??????????

[Baol74]

Eccomi cara.

A che pro vuoi sapere se esiste?

Il codice è questo:

<%
Dim oUpload
dim nomefile
Set oUpload = new cUpload
oUpload.SetPath "..\..\video_web\"
oUpload.Autorename = false
oUpload.OverWrite = true
oUpload.EnabledImageSize = True
oUpload.Load()
oUpload.Filter = oUpload.FilterVideo() & AND_ & oUpload.FilterSize(65000000)
	While Not oUpload.EOF
		oUpload.Save()	
		nomefile = oUpload.GetFileName()
		If oUpload.Files("FileExists") then Response.Write "Il file " & nomefile & " è stato sovrascritto"

		oUpload.MoveNext
	Wend
	if oUpload.Count = 0 then
		response.write("nessun upload effettuato! controlla il file inviato!")		
	end if
Set oUpload=Nothing
%>

[angelicab]

Originariamente inviato da Baol74
Eccomi cara.

A che pro vuoi sapere se esiste?

voglio sapere se esiste per poter evitare l'upload del file ... e dire all'utente di cambiare nome al file che vuole inviare ...

[Baol74]

	While Not oUpload.EOF
		If oUpload.Files("FileExists") then 
			Response.Write "Il file " & oUpload.GetFileName() & " non è stato salvato perchè già presente sul server, modificare il nome
"
		Else
			oUpload.Save()	
			nomefile = oUpload.GetFileName()
		End if
		oUpload.MoveNext
	Wend

[angelicab]

grazie mille

vado subito a provare il codice