crear carpetas

analoyra · #1 (**permalink**) 30/06/2008, 19:30

Hola!! Aca vengo con un nuevo lio... a ver quien me puede socorrer

El tema es que estoy haciendo una gestion para multiempresas, cuando yo creo una empresa nueva tengo que crear un directorio dentro de una carpeta que no se la letra de la unidad pero se llama PracProf y copio una BD que tengo en blanco y la tendria que renombrar al nombre de la empresa que estoy creando, lo que hice fue lo siguiente (que obviamente no me funciona)

MkDir App.Path & "Text1.Text"
FileCopy "app.Path & \original\original.mdb", "\app.Path\ &"Text1.Text" "

El Text1.Text es el nombre de la emprsa que estoy creando desde el form.
Gracias de antemano!!

Avellaneda · #2 (**permalink**) 01/07/2008, 01:08

Cita:

Iniciado por analoyra

Hola!! Aca vengo con un nuevo lio... a ver quien me puede socorrer

El tema es que estoy haciendo una gestion para multiempresas, cuando yo creo una empresa nueva tengo que crear un directorio dentro de una carpeta que no se la letra de la unidad pero se llama PracProf y copio una BD que tengo en blanco y la tendria que renombrar al nombre de la empresa que estoy creando, lo que hice fue lo siguiente (que obviamente no me funciona)

MkDir App.Path & "Text1.Text"
FileCopy "app.Path & \original\original.mdb", "\app.Path\ &"Text1.Text" "

El Text1.Text es el nombre de la emprsa que estoy creando desde el form.
Gracias de antemano!!

Hola,
pon la instrucción así:

MkDir App.Path & "\" & Text1.Text
FileCopy App.Path & "\original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

analoyra · #3 (**permalink**) 01/07/2008, 10:53

Muchas Gracias!!! Funciono perfecto!!!!

analoyra · #4 (**permalink**) 02/07/2008, 14:03

Hola Avellaneda! me anduvo perfecto-.... hasta que me dejo de andar... me pone que no encuentra la ruta .
sospecho que App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb" esta es la parte que no anda
alguna sugerencia?
gracias

David · #5 (**permalink**) 02/07/2008, 14:10

Cita:

Iniciado por analoyra

Hola Avellaneda! me anduvo perfecto-.... hasta que me dejo de andar... me pone que no encuentra la ruta .
sospecho que App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb" esta es la parte que no anda
alguna sugerencia?
gracias

¿Qué sucede, te marca algún error o algo así?

analoyra · #6 (**permalink**) 02/07/2008, 14:17

me pone error 76 en timpo de ejecucion, no se ha encontrado la ruta de acceso.
si yo voy a la tabla de access me deja un espacio en blanco tambien por ej. juan .mdb

David · #7 (**permalink**) 02/07/2008, 14:21

Cita:

Iniciado por analoyra

me pone error 76 en timpo de ejecucion, no se ha encontrado la ruta de acceso.
si yo voy a la tabla de access me deja un espacio en blanco tambien por ej. juan .mdb

¿Ese error te marca en el MkDir o en el FileCopy?. Intenta ejecutar paso a paso y mira cómo queda la cadena completa en la ventana Inmediato. Explico, coloca un punto de interrupción donde te marca el error y coloca en la ventana inmediato:

Código:

? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

Luego me cuentas qué resultado te devuelve.

analoyra · #8 (**permalink**) 02/07/2008, 14:27

El error me lo da en el filecopy, el directorio me lo crea en la ruta que le solicito con el nombre del text, pero el archivo mdb no.

analoyra · #9 (**permalink**) 02/07/2008, 14:29

perdon!! me queda esto en la venta inmediato
Print App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

David · #10 (**permalink**) 02/07/2008, 14:33

Cita:

Iniciado por analoyra

El error me lo da en el filecopy, el directorio me lo crea en la ruta que le solicito con el nombre del text, pero el archivo mdb no.

Pues bien, como te dije, ejecuta paso a paso, interrumpe en la línea que te da error y coloca en la ventana inmediato esto:

Código:

? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

Y me cuentas qué resultado te da. Por si acaso también coloca:

Código:

? App.Path & "\original\original.mdb"

Recuerda, la línea de tu código debe ser exactamente así:

Código:

FileCopy App.Path & "\original\original.mdb", App.Path & "\" & Text1.Text & "\" Text1.Text & ".mdb"

Si tienes algo diferente me avisas...

analoyra · #11 (**permalink**) 02/07/2008, 14:45

lo hago, pero le pongo esto
? FileCopy App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
y me muestra lo mismo.
si le pongo ? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
me muestra la ruta bien, pero con espacios como juan \juan .mdb

David · #12 (**permalink**) 02/07/2008, 14:50

Cita:

Iniciado por analoyra

lo hago, pero le pongo esto
? FileCopy App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
y me muestra lo mismo.
si le pongo ? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
me muestra la ruta bien, pero con espacios como juan \juan .mdb

¿Verificaste que la carpeta creada tenga también ese espacio?

analoyra · #13 (**permalink**) 02/07/2008, 14:51

No, lo tengo asi
FileCopy App.Path & "\Programas\Empresas\original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

lo peor es que 1 vez anduvo......

David · #14 (**permalink**) 02/07/2008, 14:55

Cita:

Iniciado por analoyra

No, lo tengo asi
FileCopy App.Path & "\Programas\Empresas\original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"

lo peor es que 1 vez anduvo......

¿No será que estás tratando de crear la misma carpeta dos veces? Porque no le veo ningún otro error. Porque si se crea correctamente la carpeta también tiene que copiar el archivo. ¿Intentaste copiar manualmente para ver qué pasa?. ¿Has comprobado que realmente el valor que te devuelve en la ventana inmediato coincide con el nombre de la carpeta?

analoyra · #15 (**permalink**) 02/07/2008, 14:57

si, si, todo ok.
no se , me eszta volviendo loca....
a la noche lo agarro mas tranqui y te cuento
gracias y mantenete cerca por favor!!

David · #16 (**permalink**) 02/07/2008, 15:00

Cita:

Iniciado por analoyra

si, si, todo ok.
no se , me eszta volviendo loca....
a la noche lo agarro mas tranqui y te cuento
gracias y mantenete cerca por favor!!

Bueno, estaré por aquí si necesitas de cualquier cosa. También puedes intentar poner en la ventana inmediato la ruta completa del archivo. Por ejemplo:

Código:

FileCopy "C:\Programa\Original\original.mdb", "C:\Programa\Empresa\empresa.mdb"

También debes comprobar que el archivo no esté siendo utilizado...

analoyra · #17 (**permalink**) 02/07/2008, 17:16

no se porque... pero borre la bd y la volvi a crear y me anduvo..... (espero que siga asi).
Gracias por la ayuda!!! cualquier cosa te vuelvo a molestar

David · #18 (**permalink**) 03/07/2008, 12:38

Cita:

Iniciado por analoyra

no se porque... pero borre la bd y la volvi a crear y me anduvo..... (espero que siga asi).
Gracias por la ayuda!!! cualquier cosa te vuelvo a molestar

Qué raro. Quizás sea porque como te dije el archivo estaba en uso por algún proceso. Me alegra que hayas logrado solucionar. Hasta a mí ya me estaba desesperando

.

Saludos

Avellaneda · #19 (**permalink**) 04/07/2008, 00:40

Cita:

Iniciado por analoyra

lo hago, pero le pongo esto
? FileCopy App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
y me muestra lo mismo.
si le pongo ? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
me muestra la ruta bien, pero con espacios como juan \juan .mdb

Simplemente pon la instrucción así:

FileCopy App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Trim(Text1.Text) & "\" & Trim(Text1.Text) & ".mdb"