Autor Tema: Re: Copy Paste(con otro nombre) (Leído 1841 veces)

Valek · « **en:** Lunes 6 de Mayo de 2002, 03:22 »

Saludos:

Necesito saber como puedo copiar un archivo existente y pegarlo en la misma ruta pero con otro nombre.
Lo que pasa es que estoy creando una aplicación en la que debe crearse una base de datos nueva, cada vez que cree una nueva empresa. Así tengo los datos de una empresa en una base de datos exclusiva.

Tengo una base de datos con ruta y nombre "C:/fact/Model.mdb"

Entonces como puedo crear a "C:/fact/001.mdb"

Gracias!!!

thedoctor · « **Respuesta #1 en:** Lunes 6 de Mayo de 2002, 20:15 »

Esto es una llamada API.
Con esto bien usado a correr.

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Los parametros. En ingles !
Vale si no te aclaras me madas un msg.

· lpExistingFileName
Points to a null-terminated string that specifies the name of an existing file.

· lpNewFileName
Points to a null-terminated string that specifies the name of the new file.

· bFailIfExists
Specifies how this operation is to proceed if a file of the same name as that specified by lpNewFileName already exists. If this parameter is TRUE and the new file already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.

Ala con 2.

Valek · « **Respuesta #2 en:** Martes 7 de Mayo de 2002, 04:50 »

Oye la verdad es que suena interesante pero no se como ponerlo en práctica.

'//Yo estaba utilizando la instruccion:

File Copy "C:RutaArchivoACopiar.Ext", "C:RutaArchivoAPegar.Ext"

Pero me interesa más la forma que planteas, si puedes detallarme un poquito más.

Gracias.

thedoctor · « **Respuesta #3 en:** Martes 7 de Mayo de 2002, 10:26 »

no me entendiste:(

Vale, esta función, no la he probado nunca.

Agrega un módulo al proyecto.

En General-Declaraciones- DEL MISMO MODULO:P

Pegas el rollo ese de Declare function ... y tal ...

Despues la llamas como si de una función propia se tratara; con los parametros. .. .

lpExistingFileName - Ruta del archivo existente. "C:/fact/Model.mdb"
lpNewFileName - Ruta del clon de model.mdb. "C:/fact/001.mdb"
bFailIfExists - Veamos ... si el lpNewFileName existe en el disco que hacemos con el? True - no lo remplaza. False - lo machacaaaaaaaa!

Ala con 2 o con win2

espero que te valga.