instalar carpeta en directorio

24/02/2007 - 19:52 por Ivan | Informe spam
hola a todos,

la consulta esta mas o menos dicha en el enunciado

¿como puedo instalar (con VBA excel) una carpeta en un directorio?

La carpeta contendria, al menos, uno o dos libros de excel , los
mismos txt, una libreria, archivos de musica y algunas fotos.

Y se descargaria pej. de un Cd, o de internet, o de un correo. La
verdad es que aun no lo se, pero en realidad me interesaria que se
pudiera desde cualquiera de estos sitios.

si sabeis por donde puedo empezar a mirarlo os lo agradezco.

un saludo y hasta pronto
Ivan

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
24/02/2007 - 20:44 | Informe spam
hola, Ivan !

la consulta esta mas o menos dicha en el enunciado
como puedo instalar (con VBA excel) una carpeta en un directorio?
La carpeta contendria, al menos, uno o dos libros de excel , los mismos txt, una libreria, archivos de musica y algunas fotos.
Y se descargaria pej. de un Cd, o de internet, o de un correo.
La verdad es que aun no lo se, pero en realidad me interesaria que se pudiera desde cualquiera de estos sitios.
si sabeis por donde puedo empezar a mirarlo os lo agradezco.



una propuesta +/- 'sencilla' [por barata]...

1) asegurate de que tus codigos hagan busquedas a partir de un ThisWorkbook.Path
2) utiliza los compresores 'comunes' [winzip, winrar, etc.] donde puedes incluir sub-carpetas :))

si tus requerimientos son mas... 'sofisticados' que la simpleza de la propuesta anterior... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Ivan
24/02/2007 - 22:57 | Informe spam
hola Hector Miguel, muchas gracias de nuevo

una propuesta +/- 'sencilla' [por barata]..." & _
1) asegurate de que tus codigos hagan busquedas a partir de un
ThisWorkbook.Path



sencilla y barata, lo ideal. Creo que mas o menos te refieres a algo asi

Sub testGuardarCarpeta()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder ThisWorkbook.Path & "\GuardarCarpetaLib", "c:"
Set fs = Nothing
End Sub

parece funcionar bien, y supongo que el "C:" de esta prueba puedo dar la
opcion de elegirlo con una especie de asistente ( ahora que lo pienso, creo
que hoy en dia ya no es 'C' el directorio predeterminado por antonomasia,
asi que supongo que lo podre buscar de alguna forma.)

ahora el problema me surje con tu siguiente punto:->

2) utiliza los compresores 'comunes' [winzip, winrar, etc.] donde puedes
incluir sub-carpetas :))



esa es mi idea, pero te comento las opciones que he intentado y el problema
que me ha surjido:

mi idea inicial era poner en una carpeta comprimida en zip la carpeta con
todos los elementos descritos en la consulta y un libro (fuera de esta
carpeta) que contendria el codigo de 'instalacion' con un userform(pej) que
hiciera la funcion de ejecutable (a modo de asistente de instalacion)

pero parece ser que al estar dentro de una carpeta comprimida, vba no
reconoce la ruta (o esa es mi impresion tras las pruebas). Si lo hago a la
inversa, una carpeta normal conteniendo el 'asistente' y una carpeta zip con
el resto si funciona, pero claro, instala la carpeta en zip, con lo que
habria que extrer el contenido (supongo/creo) una vez en destino pasandolo a
una carpeta normal para poder trabajar con los archivos con normalidad.

aunque se que esto es evitable solo con solicitar al usuario que extraiga
previamente el contenido del zip ¿existe alguna forma de extraerlo via
codigo, aunque sea con intermediacion del usuario (via asistente pej.)?

bueno, no se si me he explicado bien, pero en resumen la duda seria como
extrer el contenido de una carpeta zip

en cualquier caso muchas gracias, (y ahora un piropo) la verdad es que eres
unico para incentivar en la busqueda.

un saludo y hasta pronto
Ivan

PD: estos son dos ej del resultado de ThisWorkbook.path uno con el archivo
fuera del zip y el otro dentro. Por lo que se ve los archivos de un zip
estan en un archivo temporal cuando se leen estando dentro todavia, supongo
que ese sera el problema

1.- dentro del zip (no me reconoce la ruta)
C:\DOCUME~1\Ivan\CONFIG~1\Temp\Directorio temporal 2 para
GuardarCarpetaLib.zip

2.- fuera del zip. No da problemas
C:\Documents and Settings\Ivan\Mis documentos\PruebaGuardarCarpeta
Respuesta Responder a este mensaje
#3 Héctor Miguel
24/02/2007 - 23:52 | Informe spam
hola, Ivan !

1) con relacion al primer punto de la propuesta anterior...
"1) asegurate de que tus codigos hagan busquedas a partir de un ThisWorkbook.Path"
____
a) me referia a que los codigos de tu libro que 'busquen/guarden/requieran/..' de archivos auxiliares
lo hagan -precisamente- a partir de la carpeta donde se encuentre [en 'ese momento'] tu archivo 'maestro' :))
b) con lo anterior como 'punto de partida', podrias ahorrarte alguna 'rutina de instalacion' especial, ya que...

2) referente al segundo punto de la propuesta anterior...
"2) utiliza los compresores 'comunes' [winzip, winrar, etc.] donde puedes incluir sub-carpetas"
____
a) una vez que generes el *.ZIP / *.RAR / etc. donde incluyas las sub-carpetas [con sus archivos] correspondientes...
b) cuando el usuario lo descomprima [donde sea 'su voluntad']... las sub-carpetas seran generadas automatica/apropiada/mente
c) cuando tu archivo 'busque/guarde/requiera/...' los archivos auxiliares...
-> sus sub-carpetas SEGUIRAN 'estando/colgando/disponibles/...' debajo del ThisWorkbook.Path

quizas me quede 'corto' en comentar mas acerca de los 'alcances' de esta 'alocada y simplista' idea :-(
[pero]... mas barato que lo anterior... [salvo que tus requerimientos de instalacion sean mas 'sofisticados']... lo dudo :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#4 Ivan
25/02/2007 - 01:18 | Informe spam
hola Hector Miguel, y de nuevo muchas gracias

b) cuando el usuario lo descomprima [donde sea 'su voluntad']... las
sub-carpetas seran generadas automatica/apropiada/mente
c) cuando tu archivo 'busque/guarde/requiera/...' los archivos
auxiliares...
mas barato que lo anterior... [salvo que tus requerimientos de
instalacion sean mas 'sofisticados']... lo dudo :D



tienes razon, como siempre me he vuelto a saltar lo evidente para ir a
complicarme la vida

pero bueno, de todo se aprende algo...

un saludo y hasta pronto
Ivan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida