Gegevens uit externe bronnen, zoals e-mail of andere programma's wordt vaak geleverd aan een specifieke map die op het netwerk volgen . Die map moeten worden bekeken voor binnenkomende bestanden door elk programma dat die gegevens vereist . Het programma ('s ) die de map kijkt leest meestal en verwerkt de inhoud van bestanden ontvangen in de aangewezen map en verplaatst vervolgens de bestanden naar een andere map of verwijdert ze . Het programma bekijken van de map kan elk bestand blindelings te verwerken als het aankomt of kijk op de " DateLastModified " eigenschap van het bestand om te zien wanneer er iets nieuw binnengekomen . Instructies 1 Maak een nieuw standaard-EXE Visual Basic -project . Selecteer " Project , " " Referenties " en klik op het vakje naast " Microsoft Scripting Runtime . " Klik op " OK " om te slaan en te sluiten . Kopen van 2 Verklaar en instantiëren een verwijzing naar een FileSystemObject . Dim oFSO als Nieuwe Scripting.FileSystemObject Drop een nieuwe timer object op de standaard " Form1 " en stel het interval op een getal dat het aantal milliseconden te wachten . Zo zal het instellen van het interval tot 2000 wacht 2 seconden . Code 3 de logica van wat er moet gebeuren wanneer de 2 seconden om zijn. Het programma kijkt naar de aangewezen map en controleert elke 2 seconden om te zien of er een nieuw bestand is aangekomen . Schrijf de code binnen " Time1_Timer ( ) " om de map met de naam controleren " NEWarrivals . " Als de telling groter is dan nul , heeft een bestand aangekomen . Als oFSO.GetFolder ( " NEWarrivals " ) . Files.Count > 0 Then 4 Controleer de " DateLastModified " eigendom van een bestand te vinden in de " NEWarrivals "map om ervoor te zorgen dat al niet is verwerkt Set myFile = fso.GetFile . ( " c: \\ temp \\ test.txt " ) op Als myFile.DateLastModified > tLastProcessedFile dan de variabele " tLastProcessedFile " is een waarde opgeslagen, hetzij in het register , log -bestand of een database van het laatste verwerkte bestand . 5 lezen en verwerken van elk bestand dat komt in de map " NEWarrivals " door te verklaren en het instantiëren van een object dat is een verwijzing naar de werkelijke tekstbestand . Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading ) op < br > 6 Verplaats het bestand zodra je klaar bent met het verwerken van het aan een vooraf gedefinieerde back-up map. Typisch , bestanden verplaatst worden voor een bepaalde periode bewaard en daarna definitief verwijderd . OFSO.MoveFile strFileName , strNewLocation
|