¿Cómo asegurarse de que un archivo ha sido copiado en VB6

Crear, editar , mover, copiar y borrar son acciones comunes que se realizan en un programa que procesa archivos . Las aplicaciones pueden recibir un archivo desde cualquier fuente externa como el correo electrónico u otra aplicación , lea el archivo y realizar algún tipo de acción , tales como la inserción de esa información en una base de datos y luego mover o copiar el archivo a otra ubicación , lo que indica que el archivo ya ha sido procesado . El sistema operativo Windows tiene una API integrada para manejar todas las funciones de procesamiento de archivos mencionados. Instrucciones
1

Crear un nuevo proyecto EXE estándar en Visual Basic . Añadir Microsoft Scripting Runtime en el proyecto mediante la selección de "proyectar", "Referencias ", " Microsoft Scripting Runtime" y haciendo clic en " Aceptar " para guardar y cerrar la pantalla.
2

Crear un nuevo objeto FileScripting por se declara una variable de tipo " Scripting.FileScriptingObject . " El código debería ser similar a :

objArchivo Dim como nuevo Scripting.FileScriptingObject

Esta línea de código se define la variable llamada " objArchivo " y crear el objeto que se puede hacer referencia en el código de seguir.
3

Determine si el archivo existe codificando " oFile.FileExists ( ruta de archivo ) " donde " ruta de archivo " es el nombre completo y la ruta del archivo. El resultado de esta función es un verdadero o falso. Si el resultado es verdadero, entonces el archivo existe y que puede continuar con la función de copia . Sin embargo , si el archivo no existe , se debe codificar algún tipo de control de errores.
4

Copia el archivo especificado en la " ruta de archivo " variable a una nueva ubicación mediante la codificación de esta línea " oFile.CopyFile ruta de archivo , newloc " donde" newloc " es el camino a la nueva ubicación . Un ejemplo de la nueva ubicación sería " C : \\ CopiedFiles " o "D : \\ copia de seguridad . " El nombre del archivo será el mismo dentro de la nueva carpeta.
5

Compruebe que el archivo ha sido copiado por nuevo utilizando el método " FileExists " . Para comprobar que el archivo especificado en la variable " ruta de archivo " quedó copia en la ubicación especificada en la variable " newloc " , asegúrese de haber guardado el nombre de archivo individual en una variable independiente. Por ejemplo , los " oFile.FileExists ( newloc y nombre de archivo) " código devolverá true si el nombre de archivo en "nombre de archivo " se ha copiado con éxito a la nueva carpeta .