data från externa källor såsom e-post eller andra program ofta levereras till en särskild mapp som identifierats i nätverket . Denna mapp bör övervakas efter inkommande filer från alla program som kräver att information . Programmet ( er ) som klockor mappen läser oftast och bearbetar innehållet i filer som mottagits i den angivna mappen och flyttar sedan filerna till en annan mapp eller tar bort dem . Programmet tittar mappen kan blint behandla varje fil som det anländer eller kolla " DateLastModified " egendom av filen för att se om något nytt har kommit. Instruktioner
1
Skapa ett nytt Standard-EXE Visual Basic-projekt . Välj " Project", " Referenser " och klicka på rutan bredvid " Microsoft Scripting Runtime . " Klicka på " OK " för att spara och stänga .
2
Deklarera och initiera en hänvisning till en FileSystemObject .
Dim oFSO Som New Scripting.FileSystemObject
Drop ett nytt timer objekt på default " Form1 " och ställer in intervallet på ett tal som representerar antalet millisekunder . Till exempel kommer ställa in intervallet till 2000 väntar 2 sekunder .
3
kod logiken för vad som ska hända när de 2 sekunder är upp . Programmet klockor avsedda mappen och kontrollerar varje 2 sekunder för att se om en ny fil har anlänt . Skriv in koden inne " Time1_Timer ( ) " för att kontrollera den mapp som heter " NewArrivals . " Om räkningen är större än noll , har en fil anlänt .
P Om oFSO.GetFolder ( " NewArrivals " ) . Files.Count > 0 Then
4
Kontrollera " DateLastModified " egendom av en fil finns i " NewArrivals " mappen för att säkerställa att det inte redan har behandlats
Set myFile = fso.GetFile . ( " c : \\ temp \\ test.txt " ) katalog
Om myFile.DateLastModified > tLastProcessedFile Sen
variabeln " tLastProcessedFile " är ett värde lagras antingen i registret , log fil eller databas från bearbetade sista filen .
5
Läs och bearbeta varje fil som anländer till " NewArrivals " mappen genom att förklara och exemplifiera ett objekt som är en referens till den aktuella textfilen .
Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading ) katalog
6
Flytta filen så fort du är klar bearbeta den till en fördefinierad säkerhetskopiering. Typiskt flyttade filerna lagras under en viss period och sedan raderas permanent .
OFSO.MoveFile strFileName , strNewLocation
