Hvordan se på en mappe på VB6

Hvordan se på en mappe på VB6


Data fra eksterne kilder som e-post eller andre programmer er ofte levert til en bestemt mappe identifisert på nettverket. Mappen bør sees for innkommende filer av noen program som krever at informasjon. Programmet (e) som klokker mappen leser vanligvis og behandler innholdet i filene mottatt i den angitte mappen, 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.

Bruksanvisning

1 Opprett et nytt Standard EXE Visual Basic-prosjekt. Velg "Prosjekt", "Referanser" og klikk på boksen ved siden av "Microsoft Scripting Runtime." Klikk "OK" for å lagre og lukke.

2 Erklærer og instantiate en referanse til en File.

Dim oFSO som ny Scripting.FileSystemObject

Drop en ny timer objekt på default "Form1" og setter intervallet til et tall som representerer antall millisekunder å vente. For eksempel angir intervallet til 2000 vente 2 sekunder.

3 Kode logikken for hva som skal skje når de 2 sekunder er oppe. Programmet klokker utpekt 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 telleverdien er større enn null, har en fil kommet.

Hvis oFSO.GetFolder ( «NewArrivals"). Files.Count> 0 Then

4 Sjekk "DateLastModified" tilhører en fil som finnes i "NewArrivals" -mappen for å sikre at det ikke allerede er blitt behandlet.

Sett minFil = fso.GetFile ( "c: \ temp \ test.txt")

Hvis myFile.DateLastModified> tLastProcessedFile Deretter

Variabelen "tLastProcessedFile" er en verdi lagres enten i registret, loggfil eller database fra siste behandlet fil.

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

Sett oTextFile = oFSO.OpenTextFile (strFileName, ForReading)

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

oFSO.MoveFile strFileName, strNewLocation