Problama Upload

[mic3000]

Ciao ragazzi ho creato sul mio sito una sezione di upload, il problema è questo come faccio a controllare che nella cartella in cui vado a salvare i file non ci sia gia un file dello stesso nome e quindi avvisare l'utente che deve rinominare il file?
grazie

[Santino83_02]

usando il FileExists del FileSystemObject (ps: cerca su internet e trovi la documentazione e/o esempi)

[mic3000]

ho provato così ma non mi da nessun errore e non effettua alcun controllo

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

If ScriptObject.FileExists(FileName) = true then
response.Write("Nei nostri database esiste già un file con questo nome.")
End if

dove sbaglio???

[Alethesnake]

devi mettere tutto il percorso del file, non solo il nome

[mic3000]

Non va...
E non capisco perchè!!!!

folder = "/public/Immagini/annunci"

If ScriptObject.FileExists(Server.mappath(folder)&"fi lename") = true then
response.Write("Nei nostri database esiste già un file con questo nome." & "
" & "
")
Response.End
End If

qualcuno sa darmi una mano??
Grazie

[mic3000]

ho fatto così...

if UploadRequest.Item("nome_file").Item("FileName")="" then
FileName="no_img.gif"
	   
Else

ContentType  = UploadRequest.Item("nome_file").Item("ContentType")
filepathname = UploadRequest.Item("nome_file").Item("FileName")
filename     = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value        = UploadRequest.Item("nome_file").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)

Cartella = Server.mappath("/public/Immagini/annunci/")

If ScriptObject.FileExists((Cartella)&"\"&""&filename&"") = true then
response.Write("Nei nostri database esiste già un file con questo nome.")
Response.End
End If

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
End if

Se faccio stampare..
Cartella = Server.mappath("/public/Immagini/annunci/")
response.Write(Cartella&"\"&""&filename&"")
Response.End


vedo tutto il percorso e il nome del file che tento di uplodare in modo corretto.
Dov'è l'errore??

In questa situazione mi dice che il file esiste in qualsiasi caso, anche se non c'è sul server...

[mic3000]

questo è quello che ho trovato su asp.HTML.it

dim fso 
dim file 

set fso = Server.CreateObject("Scripting.FileSystemObject") 
file = server.mappath("nomecartella/nomefile.ext") 

if fso.fileExists(file) then 
response.write "Il file "& file & " esiste!" 
else 
response.write "Il file " & file & " non esiste!" 
end if 
set fso = nothing

Dove sbaglio?
A me sembra identico al mio!
Ho provato anche togliendi (= true then) e lasciando solo (then) ma non cambia nulla...
Aiutooo!

[mic3000]

Ragazzi nessuno sa darmi una dritta???

[Santino83_02]

fatti stampare il server.mappath che passi al fileExists e controlla che il percorso che crea sia corretto

[mic3000]

ciao Santino83_02 non so come fare la citazione!!!cmq se leggi poco piu in alto l'ho gia fatto!!!

"Se faccio stampare..
Cartella = Server.mappath("/public/Immagini/annunci/")
response.Write(Cartella&"\"&""&filename&"")
Response.End


vedo tutto il percorso e il nome del file che tento di uplodare in modo corretto.
Dov'è l'errore??

In questa situazione mi dice che il file esiste in qualsiasi caso, anche se non c'è sul server..."

Penso che sia giusta perchè mi restituisce l'intero percorso.....D:\Inetpub\.....\....\....\e il file con il nome corretto di cui sto tentando di fare l'upload..

spero di essere stato chiaro
grazie ancora