Mover archivos

by | Feb 27, 2019

La función que he creado para realizar la copia de un archivo a otra carpeta dentro del sitio es así:

function Move_File(archivoOrigen, archivoDestino)
    Dim PathOrigen, PathDestino, fs, extension
    'Obtener el path en donde se encuentan los archivos
    PathOrigen = Server.MapPath("\files")
    'Obtener el path destino donde se dejara el archivo
    PathDestino = Server.MapPath("\images")
    set fs = createobject("scripting.filesystemobject")
    'Verificar que el archivo existe e el path
        If (fs.FileExists(PathOrigen & "\" & archivoOrigen))=true Then
            'Obtener la extension del archivo Origen
            extension = fs.GetExtensionName(PathOrigen & "\" & archivoOrigen)

            if (fs.FileExists(PathDestino & "\" & archivoOrigen & "." & extension))=true Then                
                'Mover el archivo al destino
                fs.movefile PathOrigen & "\" & archivoOrigen , PathDestino & "\" & archivoDestino & "." & extension
            else
                response.write("ERROR EL ARCHIVO DESTINO YA EXISTE")
            end if
        else
            response.write("ERROR EL ARCHIVO ORIGEN NO EXISTE")
        end if
end function

Se utiliza así:

Move_File "foto.jpg","nuevafoto"