Upload de Imagem

[Fernando_DMK 0]

Como eu faço para mudar o nome do arquivo antes de salvar a imagem ?

SaveFiles()

	function SaveFiles
		Dim Upload, fileName, fileSize, ks, i, fileKey

		Set Upload = New FreeASPUpload

		Upload.Save(uploadsDirVar)

		If Err.Number <> 0 then Exit function

		SaveFiles = ""
		ks = Upload.UploadedFiles.keys

		if (UBound(ks) <> -1) then
			for each fileKey in Upload.UploadedFiles.keys
				SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName					
			next
		end if

[xanburzum 169]

usa FSO para renomear o arquivo após ter feito o Upload

você pode usar essa função

 

<%
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")
%>