existerer filen

Sådan:

function FindNytNavn(upload_navn)

dim fso,folder,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set folder=fso.GetFolder(server.mappath(".")) ' "." = mappen med asp filen

dim  filnavn, filtype, i, docheck

filnavn = left(upload_navn, instrrev(upload_navn, ".") - 1)
filtype = mid(upload_navn, instrrev(upload_navn, "."))

i = 0
docheck = true

if fso.FileExists(folder & "\" & upload_navn) then
    do while docheck = true
        i = i + 1
        if not fso.FileExists(folder & "\" & filnavn & i & filtype) then
            upload_navn = filnavn & i & filtype
            exit do
        end if
    loop
end if

set folder=nothing
set fso=nothing

FindNytNavn = upload_navn
End function

Response.Write "Filnavnet som skal gemmes er: " & FindNytNavn("billede.jpg")

Når du skal gemme, er det vist noget i stil med upload.save(filnavn).
Det ændrer du bare til:

upload.save(FindNytNavn(filnavn))

- Svar.

1000 tak