Wie man einen Ordner auf VB6 beobachten . Das Ordner für eingehende Dateien von jedem Programm, das diese Informationen erfordert beobachtet werden. Das Programm (en) , die den Ordner schaut normalerweise liest und verarbeitet den Inhalt von Dateien in den angegebenen Ordner empfangen , und dann bewegt sich die Dateien in einen anderen Ordner oder löscht. Das Programm gerade die Ordner kann blind verarbeiten jede Datei , wie es kommt oder das Kontrollkästchen " DateLastModified " Eigenschaft der Datei zu sehen, wenn etwas Neues gekommen ist. Anleitung
1

Erstellen Sie ein neues Standard EXE Visual Basic-Projekt . Wählen Sie "Projekt ", " Referenzen " und klicken Sie auf das Feld neben "Microsoft Scripting Runtime ". Klicken Sie auf " OK" um zu speichern und zu schließen.
2

Deklarieren und instanziieren einen Verweis auf ein FileSystemObject .

Dim oFSO As New Scripting.FileSystemObject

Tropfen eine neue Timer-Objekt auf dem Standard " Form1 " und das Intervall auf eine Zahl, die die Anzahl von Millisekunden zu warten. Zum Beispiel wird die Einstellung der Intervall bis 2000 warten 2 Sekunden.
3

-Code die Logik für das, was geschehen soll, wenn die 2 Sekunden oben sind. Das Programm überwacht die festgelegten Ordner und prüft alle 2 Sekunden zu sehen, ob eine neue Datei angekommen ist. Schreiben Sie den Code in " Time1_Timer () ", um den Ordner mit dem Namen überprüfen " NEWarrivals . " Wenn die Zahl größer als Null ist , hat eine Datei angekommen.

Wenn oFSO.GetFolder ( " NEWarrivals " ) . Files.Count > 0 Then
4

die " DateLastModified prüfen " Eigenschaft einer Datei in dem gefundenen " NEWarrivals "-Ordner , um sicherzustellen, dass es nicht bereits verarbeitet

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

die Variable " tLastProcessedFile " ist ein Wert, entweder in der Registry gespeichert , Log-Datei oder Datenbank aus der zuletzt bearbeiteten Datei.
5

Lesen und bearbeiten Sie jede Datei , die in der " NEWarrivals " Ordner kommt , indem er erklärt und instanziieren ein Objekt, das einen Verweis auf den eigentlichen Text -Datei ist .

Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )

6

Verschieben Sie die Datei , sobald Sie fertig sind Verarbeitung es zu einer vordefinierten Backup-Ordner . Typischerweise bewegt Dateien werden für einen bestimmten Zeitraum aufbewahrt und dann endgültig gelöscht .

OFSO.MoveFile strFileName , strNewLocation