Renomeando arquivo

[Chakan 0]

Oi pessoal.Eu to usando aquele upload sem componentes do lab. de scripts. Ta tudo otimo, inclusive até descobri 1 jeito de fazer alterar os arquivos que foram feito o upload.Bom..problema eh que se eh feito upload de 1 arquivo com mesmo nome de outro arquivo que ja tinha sido feito o upload, ele substitui o existente por esse novo.Tem algum jeito de na hora de executar o upload, o arquivo ser renomeado, caso haja já um outro com o mesmo nome? Por exemplo..se tem lá um carro.jpg...e ta sendo enviado outro carro.jpg...esse novo arquivo chamaria carro01.jpgSe alguém souber como fazer isso e puder me explicar, eu ficaria mto grato ^^

[Carlos Moreira 0]

Eu uso esse!

 

' Tipo de arquivo que esta sendo enviadotipo_imagem1 = UploadRequest.Item("imagem1").Item("ContentType") 'imagem1' Caminho completo dos arquivos enviadoscaminho_imagem1 = UploadRequest.Item("imagem1").Item("FileName") ' imagem1' Nome dos arquivos enviadosnome_imagem1 = Right(caminho_imagem1,Len(caminho_imagem1)-InstrRev(caminho_imagem1,"\"))nome_imagem1 = Right(nome_imagem1, len(nome_imagem1)-Instr(nome_imagem1,".")+1)Novo_nome = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_prod1"  'novo nome do arquivo (imagem1)nome_imagem1 = novo_nome&nome_imagem1' Conteudo binario dos arquivos enviadosimagem1 = UploadRequest.Item("imagem1").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("../imagens/uploads/"&nome_imagem1&"")' Fazendo o Upload do arquivo selecionadoif imagem1 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta)For i = 1 to LenB(imagem1)MyFile.Write chr(AscB(MidB(imagem1,i,1)))NextMyFile.Closeend if' GRAVA DADOS NO BANCO

[Chakan 0]

Rpz, testei aqui e era exatamente isso que eu queria. Não sabia que dava pra fazer isso de por data, hora, min, sec no nome do arquivo.Valeu mesmo ^^

[Carlos Moreira 0]

é isso ai, estamos aqui pra isso!!!Abração!!!