Πώς να παρακολουθήσετε ένα φάκελο για VB6

Τα δεδομένα από εξωτερικές πηγές όπως το ηλεκτρονικό ταχυδρομείο ή άλλα προγράμματα είναι συχνά παραδίδεται σε έναν συγκεκριμένο φάκελο που προσδιορίζονται στο δίκτυο . Αυτός ο φάκελος θα πρέπει να παρακολουθούνται για τα εισερχόμενα αρχεία από οποιοδήποτε πρόγραμμα που απαιτεί αυτές τις πληροφορίες . Το πρόγραμμα ( -ες) που παρακολουθεί το φάκελο συνηθίζει να διαβάζει και να επεξεργάζεται τα περιεχόμενα των φακέλων που υποβλήθηκαν στον καθορισμένο φάκελο , και στη συνέχεια μετακινεί τα αρχεία σε άλλο φάκελο ή να τα διαγράφει . Το πρόγραμμα βλέποντας το φάκελο μπορεί τυφλά να επεξεργαστεί κάθε αρχείο σε πραγματικό χρόνο ή να ελέγξετε το " DateLastModified " ιδιότητα του αρχείου για να δείτε όταν κάτι νέο έχει φτάσει . Οδηγίες
Η

1 Δημιουργήστε ένα νέο Standard EXE έργο της Visual Basic . Επιλέξτε το "Project ", " Αναφορές" και κάντε κλικ στο πλαίσιο δίπλα στην επιλογή " Microsoft Scripting Runtime " . Κάντε κλικ στο " OK " για να αποθηκεύσετε και να κλείσει. 2

να αναγνωρίσει και να υπόσταση σε μια αναφορά σε ένα FileSystemObject .

Δημ. oFSO Όπως New Scripting.FileSystemObject

Drop ένα νέο αντικείμενο χρονοδιακόπτη στην προεπιλογή " Form1 " και ρυθμίστε το διάστημα σε έναν αριθμό που αντιπροσωπεύει τον αριθμό των χιλιοστών του δευτερολέπτου να περιμένουν . Για παράδειγμα , ρυθμίζοντας το διάστημα έως το 2000 θα περιμένει 2 δευτερόλεπτα.
Εικόνων 3

Κώδικα η λογική για το τι πρέπει να συμβεί όταν οι δύο δευτερόλεπτα είναι επάνω . Το πρόγραμμα παρακολουθεί το καθορισμένο φάκελο και ελέγχει κάθε 2 δευτερόλεπτα για να δούμε αν ένα νέο αρχείο έχει φτάσει . Γράψτε τον κώδικα μέσα " Time1_Timer ( ) " για να ελέγξετε το φάκελο που ονομάζεται " NewArrivals . " Αν η μέτρηση είναι μεγαλύτερη από το μηδέν , ένα αρχείο έχει φτάσει.

Εάν oFSO.GetFolder ( " NewArrivals " ) . Files.Count > 0 Τότε
Η 4

Ελέγξτε το " DateLastModified « ιδιότητα ενός αρχείου που βρίσκεται στο " NewArrivals " φάκελο για να διασφαλίσουμε ότι δεν έχει ήδη υποβληθεί σε επεξεργασία

Set myFile = fso.GetFile . ( " c : \\ temp \\ test.txt " )

Αν myFile.DateLastModified > tLastProcessedFile τότε

Η μεταβλητή " tLastProcessedFile " είναι μια τιμή που είναι αποθηκευμένη είτε στο μητρώο , αρχείο ή βάση δεδομένων από την τελευταία επεξεργασία του αρχείου καταγραφής .
5

διαβάσει και να επεξεργαστεί κάθε αρχείο που φτάνει στο " NewArrivals " φάκελο δηλώνοντας και στιγμιότυπο ενός αντικειμένου που είναι μια αναφορά στο πραγματικό αρχείο κειμένου .

Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )

6

Μετακινήστε το αρχείο , μόλις τελειώσετε την επεξεργασία σε ένα προκαθορισμένο φάκελο αντιγράφων ασφαλείας . Συνήθως, τα αρχεία μετακινούνται διατηρούνται για ένα συγκεκριμένο χρονικό διάστημα και στη συνέχεια να διαγραφεί οριστικά .

OFSO.MoveFile strFileName , strNewLocation
Η
εικόνων