controllare l'esistenza e rinominarlo

[djjunior]

con questo codice

<% 

Set Upload = Server.CreateObject("Persits.Upload") 

percorso = Server.MapPath("/public/server/"& request.querystring("cartella") &"/") 

' This is needed to enable the progress indicator 
Upload.ProgressID = Request.QueryString("PID") 

Count = Upload.Save (percorso) 

Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
filename=File.FileName 
estensione=file.ext 

estensione_ammessa=".jpg" 
estensione_ammessa2=".JPG"

if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
file.delete 

    response.write "Il file ha un'estensione non ammessa!" 

else 
nuovo_filename="&filename&" 

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&filename&"")), (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&nuovo_filename&"")) 
Set fsoMyFile = nothing 

    Response.redirect("carica+elenco.asp?cartella=" & request.querystring("cartella") &"&id=" & request.querystring("id") &"") 


end if
end if 
%>

Vorrei che faccia un controllo al momento dell'upload, se il file è esistente lo deve rinomina esempio
nome.jpg file presente
nome(1).jpg rinominato perchè già presente.
Grazie 1000 per il vs aiuto.
G.

[djjunior]

nessuno può aiutarmi?
Grazie
G.

[ale_1976]

<%
Dim objFS,objFolder,objFile
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
percorso = Server.MapPath("/public/server/"& request.querystring("cartella") &"/")
Set objFolder = objFS.GetFolder(""&percorso&"")

Set Upload = Server.CreateObject("Persits.Upload") 

 
Count = Upload.Save (percorso) 

' This is needed to enable the progress indicator 
Set File = Upload.Files("file1") 



If Not File Is Nothing Then 
filename=File.FileName 
estensione=file.ext 

estensione_ammessa=".jpg" 
estensione_ammessa2=".JPG"

if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
file.delete 

    response.write "Il file ha un'estensione non ammessa!" 

else 
nuovo_filename=""&filename&"" 
cont=0
check=1

Do
check=0
cont=cont+1

For Each objFile In objFolder.Files
if nuovo_filename=""&objFile.Name&"" then
        check=1
        response.write nuovo_filename&"
"
        nuovo_filename=""&cont&"-"&filename&""
end if

Next

loop until check=0

Dim fsoMyFile 


Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&filename&"")), (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&nuovo_filename&""))
Set fsoMyFile = nothing 


    Response.redirect("carica+elenco.asp?cartella=" & request.querystring("cartella") &"&id=" & request.querystring("id") &"") 


end if
end if 
%> 

Prova a vedere...ho fatto delle prove e funziona, però controlla se ho messo tutto il codice corretto con i tuoi percorsi
Ciao

[djjunior]

funziona, funziona alla grande...
Grazie Ale
G.

[djjunior]

ale, dimenticavo il problema di creare il pdf direttamente con la tabella
ecco il post:

http://forum.html.it/forum/showthrea...=&pagenumber=2

puoi aiutarmi anche qui?
Infinitamente grazie.
Gino

[ale_1976]

Sì sì...appena ho un secondo ti mando anche quella soluzione. Nel post di avevo messo il metodo per incollare un testo..non l'html...ma c'è anche quello.

Sistemo due cose, poi ti mando anche quella soluzione.

ciao

[djjunior]

thankssss