Tecnología

Inicio

¿Cómo ver una carpeta en VB6

¿Cómo ver una carpeta en VB6


Los 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 estar alerta a los archivos entrantes por parte de cualquier programa que requiere esa 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 comprobar la propiedad "DateLastModified" del archivo para ver si ha llegado algo nuevo.

Instrucciones

1 Crear un nuevo proyecto EXE estándar de Visual Basic. Seleccione "Proyecto", "Referencias" y haga clic en la casilla junto a "Microsoft Scripting Runtime". Haga clic en "OK" para guardar y cerrar.

2 Declarar y crear instancias de una referencia a un objeto FileSystemObject.

Dim oFSo Como Nueva Scripting.FileSystemObject

Caída de un nuevo objeto de temporizador en el valor por defecto "Form1" y establecer el intervalo en un número que representa el número de milisegundos de espera. Por ejemplo, establecer el intervalo a 2000 esperará 2 segundos.

3 Código de la lógica de lo que debería ocurrir cuando los 2 segundos se han agotado. El programa está pendiente la carpeta designada y comprueba cada 2 segundos para ver si ha llegado un nuevo archivo. Escribe el código dentro "Time1_Timer ()" para comprobar la carpeta llamada "NewArrivals." Si el contador es mayor que cero, un archivo ha llegado.

Si oFSO.GetFolder ( "NewArrivals"). Files.Count> 0 Then

4 Compruebe la propiedad "DateLastModified" de un archivo que se encuentra en la carpeta "NewArrivals" para asegurarse de que no haya sido ya procesado.

Establecer myFile = fso.GetFile ( "c: \ temp \ test.txt")

Si myFile.DateLastModified> Luego tLastProcessedFile

La variable "tLastProcessedFile" es un valor almacenado, ya sea en el registro, archivo o base de datos de registro desde el último archivo procesado.

5 Leer y procesar cada archivo que llega en la carpeta "NewArrivals" al declarar y crear instancias de un objeto que es una referencia al archivo de texto real.

Establecer oTextFile = oFSO.OpenTextFile (strFileName, ForReading)

6 Mover el archivo tan pronto como haya terminado el procesamiento a una carpeta de copia de seguridad predefinida. Normalmente, los archivos movidos son retenidos por un período determinado y luego se eliminan de forma permanente.

oFSO.MoveFile strFileName, strNewLocation