Dundas - Renomear

[meirelles 0]

Gostaria de renomear o arquivo usando Dundas.

 

<%Dim objUploaddim objUploadedFileSet objUpload = server.CreateObject("Dundas.Upload.2")objUpload.UseVirtualDir = True'esta linha abaixo faz com que o Dundas não altere o nome do arquivo quando fizer o uploadobjUpload.UseUniqueNames = falseid_musica = ObjUpload.FORM("id_musica")For Each objUploadedFile in objUpload.Filesnomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\"))NextobjUpload.Save "/clubedofunk2/musicas/"Set objUpload = nothing%>

Na hora de subir o arquivo eu gostaria de subi-lo com outro nome!

 

Se alguém souber...

No aguardo!

[meirelles 0]

Só pra constar, sei que ainda vai ajudar muita gente

<%Dim objUploaddim objUploadedFileSet objUpload = Server.CreateObject("Dundas.Upload.2")objUpload.UseVirtualDir = false''' Definindo propriedade de troca de nome da imagemobjUpload.Useuniquenames = true''' Deduzimos que dentro da pasta upoload, que possui os arquivos ASP, existe uma outra pasta''' chamada img, pasta onde as imagens serão gravadascaminho = Server.MapPath("musicas/") & ""objUpload.SaveToMemory'resgata campo do formularioid_musica = ObjUpload.FORM("id_musica")For Each objUploadedFile in objUpload.FilesfileName = objUpload.GetFileName(objUploadedFile.OriginalPath)nome_file = id_musicaextensao = ".mp3"arquivo = nome_file + extensaoobjUploadedFile.SaveAs caminho & "/" & arquivoNextSet objUpload = nothing