Função para renomear arquivos no ASP com FSO

Com esta função é possível renomear arquivos no servidor utilizando o componente FileSystemObject (FSO).

O arquivo será renomeado de acordo com o tempo no servidor. Por exemplo se no servidor a data e hora for: 07/09/2007 22:38 hrs e o arquivo for do tipo JPG o nome do arquivo será “070920072238.jpg”.

<%
function renomear(nome)
  Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
  extensao = ObjetoFSO.GetExtensionName(nome)
  dia1 = now()
  dia1 = replace(dia1,"/","")
  dia1 = replace(dia1,":","")
  dia1 = replace(dia1," ","")
  renomear = dia1&"." & extensao
  ObjetoFSO.close()
  Set ObjetoFSO = nothing
end function

'Exemplo de chamada
call renomear("foto.jpg")
%>

Qual é a sua opinião ou dúvida?