Renomear!

[mkboy 1]

To fazendo o UPLOAD de um arquivo, mas quero renomear ele, entao tenho a funcção que faz isso!

 

Só que to conseguindo renomear apenas o nome do arquivo para exibir na tela, mas o arquivo que vai ser gravado no servidor nao está renomeado, é isso:

 

 

ASP

[*]

 

[*]<%

 

[*]'renomear imagens

 

[*]Function rndit()

 

[*] Dim RndTemp 

 

[*] Randomize 

 

[*] RndTemp = Rnd * 10000 

 

[*] RndTemp= Int(RndTemp) 

 

[*] rndit = RndTemp 

 

[*]End Function 

 

[*]

 

[*]

 

[*]

 

[*]'Script de upload

 

[*]set arq = Server.CreateObject("Persits.Upload")

 

[*]

 

[*]'selecionando o destino do arquivo

 

[*]Select Case Session("local")

 

[*]

 

[*] Case "add_prod" 'imagens que são incluídas com os produtos

 

[*]

 

[*] arq.Save Server.Mappath("../produtos")

 

[*]

 

[*] Case "add_ban" 'imagens que são incluídas com os produtos

 

[*]

 

[*] arq.Save Server.Mappath("../banner")

 

[*]

 

[*]

 

[*]End Select

 

[*]

 

[*]

 

[*]set File = arq.Files(1)

 

[*]

 

[*] 

 

[*]

 

[*]'alteração do size

 

[*] If File.ImageType <> "JPG" AND File.ImageType <> "GIF" AND Ucase(Right(File.FileName,3)) <> "SWF" then

 

[*] File.Delete

 

[*] response.redirect ("anexar_01.asp?erro=tipo&local=" & Session("local"))

 

[*] response.end

 

[*] End If

 

[*]

 

[*] If Ucase(Right(File.FileName,3)) = "SWF" then

 

[*] response.write("<script>alert('SWF\nAinda está em construção uploads desse arquivo!');</script>")

 

[*] response.end

 

[*] End If

 

[*]

 

[*]

 

[*]set jpeg = Server.CreateObject("Persits.Jpeg")

 

[*]jpeg.open (File.Path)

 

[*]

 

[*]H = 360

 

[*]W = 480

 

[*]

 

[*]jpeg.PreserveAspectRatio = True

 

[*]

 

[*] if jpeg.height > H then

 

[*] jpeg.height = H

 

[*] end if 

 

[*]

 

[*] if jpeg.width > W then

 

[*] jpeg.width = W

 

[*] end if

 

[*]

 

[*]

 

[*]'pega o nome do arquivo e define onde o mesmo será salvo

 

[*]

 

[*]salvar = Server.Mappath("../produtos/") & "\" & File.ExtractFileName

 

[*]

 

[*]

 

[*]nome = File.FileName

 

[*]'renoeia o arquivo acrescentanto 4 caracteres randomicos

 

[*]nome = Replace(nome,".","_"& rndit &".") 

 

[*]

 

[*]'transforma todos os formatos para jpg

 

[*] formato = Right(salvar,4)

 

[*] salvar = Replace(salvar,formato,".jpg")

 

[*]

 

[*]

 

[*]'salva o arquivo

 

[*]jpeg.Save salvar

 

[*]

 

[*]'zera variaveis

 

[*]set arquivo = nothing

 

[*]set arq = nothing

 

[*]set File = nothing

 

[*]Session.Contents.Remove("local")

 

[*]

 

[*]

 

Aqui renomeia legal o nome: nome = Replace(nome,".","_"& rndit &".")

 

Mas nao consegui renomear o arquivo gravado no servidor! ué!

[ska_ska 0]

uma alternativa...grava no servidor... (original)copia para um arquivo com o nome novoapaga do sevidor o original... 3 linhas...

[Mário Monteiro 179]

ou apenas renomeia usando FSO mesmo...