Comandos para compiar y guardar archivos automáticamente.

[AeSePe1]

Hola amgios.
Necesito el código completo para compiar y guradar un archivo que está en mi PC. Esto se tenddría que ejecutar automáticamente cuando abro el programa, ya que necesito formatear el disco....
saludos.

[sdnsdlm]

Hola,

Puedes usar la instrucción FileCopy para copiar archivos. Que se ejecute al empezar la aplicación tienes dos posibilidades: poner la instrucción FileCopy en el Load del formulario de inicio o arrancar con el sub main, hacer el copy y luego cargar y mostrar el formulario de inicio. Como más te guste.

Te aconsejaría que hicieras un
if len(dir("trayectoria archivo"))>0 then
' copias el archivo
end if

Más que nada para asegurarte que vas a copiar un archivo que realmente existe.

Saludos.

[AeSePe1]

Hola.
Gracias por tu respuesta, pero eso sirve para copiar en dónde???.
Claro..., yo no me expliqué bien....
Necesito que el archivo que se encuentra en c:/mis documentos/docs/archivo.doc, sea copiado por el código en VB y este código, tambien guarde la copia en otra carpeta, ejemplo: c:/mis documentos/docs_new/archivo.doc.
¿se entiende?
saludos.

[sdnsdlm]

¿¿¿Tienes el MSDN instalado??? Si es así teclea FileCopy, lo seleccionas y luego le das a la tecla F1. Verás que es una función extremadamente sencilla en su sintaxis.

FileCopy archivoOrigen, archivoDestino

Vaya como un copy de msdos o un cp de Unix.

Saludos.

[AeSePe1]

Perdona, pero no entendí la respuesta
Me gustaría que me pases directamente el código asi lo copio y lo pego directamente...
saludos.

[sdnsdlm]

Por ejemplo, para copiar c:\prueba1.txt en c:\Dir\prueba2.txt, deberías hacer:

if len(dir("c:\prueba1.txt))>0 then
FileCopy "c:\prueba1.txt", "c:\dir\prueba2.txt"
end if

Por cierto, prueba a escribir la palabra FileCopy en el entorno de Visual Basic, la seleccionas y a continuación le das a F1, a ver que sale, así verás si tienes el MSDN instalado o no.

Saludos.

[AeSePe1]

Gracias amigo!