Data fra eksterne kilder såsom e-mail eller andre programmer er ofte leveres til en bestemt mappe er identificeret på netværket. Denne mappe bør overvåges for indkommende filer ved ethvert program, der kræver, at oplysninger. Programmet (r) , som overvåger mappen normalt læser og behandler indholdet af filer, der modtages i den angivne mappe og derefter flytter filerne til en anden mappe eller sletter dem . Programmet ser mappe kan blindt behandle hver fil , som den ankommer , eller tjek " DateLastModified " ejendom for filen for at se, når noget nyt er ankommet. Instruktioner
1
Opret en ny standard-EXE Visual Basic projekt. Vælg " projektet", "Referencer" , og klik på feltet ud for "Microsoft Scripting Runtime ". Klik på "OK " for at gemme og lukke.
2
Erklær og instantiere en reference til en FileSystemObject .
Dim oFSO Som New Scripting.FileSystemObject
Drop en ny timer objekt på default " Form1 " og sæt intervallet til et tal, der repræsenterer det antal millisekunder til at vente. For eksempel vil indstilling i intervallet 2000 vente 2 sekunder.
3
Code logikken for, hvad der skal ske, når de to sekunder er gået. Programmet ser den angivne mappe og tjekker hver 2 sekunder for at se, om en ny fil er ankommet. Skriv koden inside " Time1_Timer () " for at kontrollere den mappe kaldet " NewArrivals ". Hvis tallet er større end nul , har en fil ankommet.
P Hvis oFSO.GetFolder ( " NewArrivals "). Files.Count > 0 Then
4
Check " DateLastModified "ejendom af en fil, der findes i " NewArrivals "mappe for at sikre, at det ikke allerede er blevet behandlet
Set minfil = fso.GetFile . ( " c: \\ temp \\ test.txt " )
< p> Hvis myFile.DateLastModified > tLastProcessedFile Så
variablen " tLastProcessedFile " er en værdi gemt enten i registreringsdatabasen , skal du logge fil eller database fra den sidste behandlet fil.
5
Læs og behandle hver fil , der ankommer i " NewArrivals " mappe ved at erklære , og instantiere et objekt, der er en henvisning til den faktiske tekstfil.
Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )
< br > 6
Flyt filen , så snart du er færdig behandle det til en foruddefineret backup mappe. Typisk filerne flyttet bevares for en bestemt periode og derefter slettet permanent.
OFSO.MoveFile strFileName , strNewLocation