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í:

[vb]
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
[/vb]

Se utiliza así:
[vb]
Move_File "foto.jpg","nuevafoto"
[/vb]