1
Crear un nuevo proyecto EXE estándar en Visual Basic . Seleccione "proyectar", "Referencias" y haga clic en la casilla junto a " Microsoft Scripting Runtime" . Haga clic en " Aceptar" para guardar y cerrar.
2
declarar y crear una instancia de una referencia a un objeto FileSystemObject .
OFSo Dim As New Scripting.FileSystemObject
gota una nueva objeto de temporizador en el default " Form1 " y establecer el intervalo de un número que representa el número de milisegundos de espera . Por ejemplo, establecer el intervalo para 2000 se espera 2 segundos.
3
código de la lógica de lo que debe ocurrir cuando los 2 segundos han aumentado . El programa vigila la carpeta designada y comprueba cada 2 segundos para ver si un archivo ha llegado. Escribir el código dentro de " Time1_Timer () " para comprobar la carpeta llamada " NEWarrivals . " Si el recuento es mayor que cero , un archivo ha llegado.
Si oFSO.GetFolder ( " NEWarrivals ") . Files.Count > 0 Entonces
4
Marque la casilla " DateLastModified "propiedad de un archivo que se encuentra en el" NEWarrivals " carpeta para asegurarse de que no se haya procesado
Set myFile = fso.GetFile . (" c : \\ temp \\ test.txt ")
< p> Si myFile.DateLastModified > tLastProcessedFile Entonces
la variable " tLastProcessedFile " es un valor almacenado , ya sea en el registro, el archivo de registro o base de datos a partir del último archivo procesado .
5
leer y procesar cada archivo que llega a la carpeta " NEWarrivals " por declarar y crear instancias de un objeto que es una referencia al archivo de texto real.
Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )
6
Mueva el archivo tan pronto como termine de procesar a una carpeta de copia de seguridad predefinida. Normalmente, los archivos se movieron son retenidos por un período determinado y luego se eliminarán de forma permanente .
StrFileName oFSO.MoveFile , strNewLocation