Data fra eksterne kilder som e-post eller andre programmer er ofte levert til en bestemt mappe identifisert på nettverket. At mappen skal bli sett for innkommende filer av noen program som krever at informasjon. Programmet (e ) som klokker mappen leser vanligvis og behandler innholdet i filer som er mottatt i angitt mappe , og deretter flytter filene til en annen mappe eller sletter dem . Programmet ser mappen kan blindt behandle hver fil når den kommer eller sjekke " DateLastModified " eiendom på filen for å se når noe nytt har kommet. Instruksjoner
en

Opprett en ny Standard EXE Visual Basic-prosjekt . Velg " Prosjekt ", " Referanser " og klikk i boksen ved siden av " Microsoft Scripting Runtime . " Klikk " OK " for å lagre og lukke.
2

Erklærer og instantiate en referanse til en FileSystemObject .

Dim oFSO som ny Scripting.FileSystemObject

Drop en ny tidtaker objekt på default " Form1 " og setter intervallet til et tall som representerer antall millisekunder å vente. For eksempel vil sette intervallet til 2000 vente to sekunder .
3

Kode logikken for hva som skal skje når to sekunder er oppe. Programmet ser den tiltenkte mappen og sjekker hver 2 sekunder for å se om en ny fil har kommet. Skriv inn koden innsiden " Time1_Timer ( ) " for å sjekke mappe kalt " NewArrivals . " Hvis antallet er større enn null , har en fil kom .
P Hvis oFSO.GetFolder ( " NewArrivals ") . Files.Count > 0 Then
4

Sjekk " DateLastModified "eiendom av en fil finnes i" NewArrivals "-mappen for å sikre at det ikke allerede er blitt behandlet

Set minFil = fso.GetFile . ( " c : \\ temp \\ test.txt " )
< p> Hvis myFile.DateLastModified > tLastProcessedFile Deretter

variabelen " tLastProcessedFile " er en verdi lagres enten i registeret , kan du logge fil eller database fra siste bearbeidet fil .
5

Les og behandle hver fil som kommer i " NewArrivals "-mappen ved å erklære og forekomster et objekt som er en referanse til den faktiske tekstfil .

Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )

6

Flytt filen så snart du er ferdig å behandle den til en forhåndsdefinert backup -mappen. Vanligvis flyttet filene beholdes for en bestemt periode , og deretter slettes permanent.

OFSO.MoveFile strFileName , strNewLocation