SaveAsVirtual en AspUpLoad

[a n g e l u s]

<%
on error resume next
Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save

if err<> 0 then
response.write "hay un error al subir el archivo "&err.description

else

if Count = 0 then
response.write("debe ingresar un archivo")

else

'Creas el directorio si no existe
Upload.CreateDirectory "c:\upload\fecha_"&date(), True


'Obtienes el nombre del archivo
Set File1 = Upload.Files("FILE1")

'Colocas el nombre que deseas
Name = "Nuevo_"&date()


'Lo Guardas
File1.SaveAs "c:\upload\Folder1\" & Name & File1.Ext

Response.Write "El Archivo Fue Guardado en :" & File1.Path & "<BR>"
end if

end if
%>