-
¿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