|
Données provenant de sources externes telles que la messagerie ou d'autres programmes sont souvent livrés à un dossier spécifique identifié sur le réseau. Ce dossier doit être regardé pour les fichiers entrants par n'importe quel programme qui exige que l'information . Le programme (s) qui surveille le dossier se lit habituellement et traite le contenu des fichiers reçus dans le dossier désigné , puis déplace les fichiers vers un autre dossier ou les supprime . Le programme à regarder le dossier peut aveuglément traiter chaque fichier tel qu'il arrive ou vérifier la propriété " DateLastModified " du fichier pour voir si quelque chose de nouveau est arrivé. Instructions
1 Créer un nouveau projet Visual Basic EXE standard . Sélectionnez « projeter», « Références» et cliquez sur la case à côté de " Microsoft Scripting Runtime " . Cliquez sur " OK" pour enregistrer et fermer .
2 déclarer et instancier une référence à un objet FileSystemObject .
Dim FOSO As New Scripting.FileSystemObject
baisse une nouvelle objet de minuteur sur la valeur par défaut " Form1 " et régler l'intervalle à un nombre représentant le nombre de millisecondes à attendre. Par exemple, définir l'intervalle à 2000 va attendre 2 secondes.
3 Code de la logique de ce qui doit se produire lorsque les deux secondes sont en hausse . Le programme surveille le dossier désigné et vérifie toutes les 2 secondes pour voir si un nouveau fichier est arrivé. Ecrire le code à l'intérieur " Time1_Timer () " pour vérifier le dossier appelé " NEWarrivals . " Si le nombre est supérieur à zéro , un fichier est arrivé.
Si oFSO.GetFolder ( " NEWarrivals " ) . Files.Count > 0 Then
4 Cochez la case " DateLastModified " propriété d'un fichier qui se trouve dans le" NEWarrivals "dossier pour s'assurer qu'il n'a pas déjà été traité
Set myFile = fso.GetFile . (" c: \\ temp \\ test.txt " )
< p> Si myFile.DateLastModified > tLastProcessedFile Puis
La variable " tLastProcessedFile " est une valeur stockée soit dans le registre, le fichier journal ou base de données à partir du dernier fichier traité .
5 lire et traiter chaque fichier qui arrive dans le dossier " NEWarrivals " en déclarant et l'instanciation d'un objet qui est une référence au fichier de texte réelle.
Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )
6 déplacer le fichier dès que vous avez terminé le traitement dans un dossier de sauvegarde prédéfini. Généralement, les fichiers transférés sont conservés pendant une période spécifique, puis définitivement supprimés.
StrFileName oFSO.MoveFile , strNewLocation
|
