I dati provenienti da fonti esterne, quali e-mail o altri programmi è spesso consegnati a una cartella specifica identificato sulla rete. Quella cartella deve essere guardato per i file in entrata da parte di qualsiasi programma che richiede tali informazioni. Il programma (s) che guarda la cartella di solito legge ed elabora il contenuto dei file ricevuti nella cartella designata, e quindi sposta i file in un'altra cartella o li elimina. Il programma di guardare la cartella può ciecamente elaborare ogni file come si arriva o controllare il "DateLastModified" proprietà del file per vedere se è arrivato qualcosa di nuovo.

istruzione

1 Creare un nuovo progetto EXE standard di Visual Basic. Selezionare "Progetto", "Riferimenti" e fare clic sulla casella accanto a "Microsoft Scripting Runtime". Fare clic su "OK" per salvare e chiudere.

2 Dichiarare e creare un'istanza di un riferimento ad un FileSystemObject.

Dim oFSO come nuovo Scripting.FileSystemObject

Eliminare un nuovo oggetto timer sul "Form1" predefinito e impostare l'intervallo di un numero che rappresenta il numero di millisecondi di attesa. Ad esempio, impostando l'intervallo al 2000 attenderà 2 secondi.

3 Codice della logica per quello che dovrebbe accadere quando i 2 secondi siano. Il programma guarda la cartella designata e controlla ogni 2 secondi per vedere se un nuovo file è arrivato. Scrivere il codice all'interno "Time1_Timer ()" per controllare la cartella chiamata "consegna sconto." Se il conteggio è maggiore di zero, un file è arrivato.

Se oFSO.GetFolder ( "consegna sconto"). Files.Count> 0 Then

4 Controllare il "DateLastModified" proprietà di un file si trova nella cartella "consegna sconto" per assicurarsi che non è già stato elaborato.

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

Se myFile.DateLastModified> tLastProcessedFile Poi

La variabile "tLastProcessedFile" è un valore memorizzato nel Registro di sistema, file o database di registro dall'ultimo file elaborato.

5 Leggere ed elaborare ogni file che arriva nella cartella "consegna sconto" di dichiarare e istanziare un oggetto che è un riferimento al file di testo vero e proprio.

Set oTextFile = oFSO.OpenTextFile (strFileName, ForReading)

6 Spostare il file non appena si è fatto l'elaborazione di una cartella di backup predefinita. In genere, i file spostati vengono conservati per un determinato periodo e poi eliminati in modo permanente.

oFSO.MoveFile strFileName, strNewLocation