Renomenado arquivos com Dundas
Este exemplo mostra como Renomear um arquivo
quando se usa o componente Dundas para fazer o Upload.
Estarei levando em consideração que você já tenha algum conhecimento do Componente Dundas.
------------------------------------------
Set objUpload = Server.CreateObject("Dundas.Upload.2")
''' Definindo propriedade de troca de nome da imagem
objUpload.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 gravadas
caminho = Server.MapPath("..uploadimg") & ""
objUpload.SaveToMemory
For Each objUploadedFile in objUpload.Files
fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)
nome_file = "nome_novo"
objUploadedFile.SaveAs caminho & nome_file & ".gif"
Next
|
|