Datos de fuentes externas, tales como el correo electrónico u otros programas a menudo se entregan a una carpeta específica identificada en la red. En esa carpeta debe ser observado para los archivos entrantes por cualquier programa que requiere dicha información. El programa ( s ) que vigila la carpeta normalmente lee y procesa el contenido de los archivos recibidos en la carpeta designada , y luego mueve los archivos a otra carpeta o los elimina . El programa de observación de la carpeta puede procesar ciegamente cada archivo a medida que llega o compruebe la propiedad " DateLastModified " del archivo para ver si ha llegado algo nuevo . Instrucciones
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