Ok, creo que como de costumbre, lo pienso de una manera y escribo algo que no quiero decir jejejeje....
Se tienen archivos .rar o .zip en una máquina y se quieren subir al server de la empresa. una vez arriba, se dispara una función que descomprime dicho archivo, esto último ya estando en el server.
Mi duda es, que no sé cómo poder enviar dichos archivos.... elegirlos y enviarlos....
Tengo el código del form, el de la función que elige .zip o .rar, hasta ahí todo bien, pero no sé cómo depositarlo en el server y una vez que ahí descomprimirlo...
Este es el código que tengo para el form de selección que conseguí en el foro desarrolloweb.com:
Código:
<script>
function comprueba_extension(formulario, archivo)
{
extensiones_permitidas = new Array(".zip", ".rar");
mierror = "";
if (!archivo)
{
//Si no tengo archivo, es que no se ha seleccionado un archivo en el formulario
mierror = "No has seleccionado ningún archivo";
}
else
{
//recupero la extensión de este nombre de archivo
extension = (archivo.substring(archivo.lastIndexOf("."))).toLowerCase();
//alert (extension);
//compruebo si la extensión está entre las permitidas
permitida = false;
for (var i = 0; i < extensiones_permitidas.length; i++)
{
if (extensiones_permitidas[i] == extension)
{
permitida = true;
break;
}
}
if (!permitida)
{
mierror = "Comprueba la extensión de los archivos a subir. \nSólo se pueden subir archivos con extensiones: " + extensiones_permitidas.join();
}
else
{
//submito!
alert ("Todo correcto. Voy a submitir el formulario.");
formulario.submit();
return 1;
}
}
//si estoy aqui es que no se ha podido submitir
alert (mierror);
return 0;
}
</script>
<form method=post enctype="multipart/form-data">
<input type=file name="archivoupload">
<input type=button name="Button" value="Enviar" onclick="comprueba_extension(this.form, this.form.archivoupload.value)">
</form>
y este es el de descomprimir:
Código:
Dim objZip
Dim paso
Set objZip = Server.CreateObject("XStandard.Zip")
paso = "\\server\e11.zip"
objZip.UnPack paso, "\\server"
Set objZip = Nothing
Ídeas