I dati provenienti da fonti esterne, come e-mail o altri programmi è spesso consegnati in una cartella specifica identificato sulla rete. Tale cartella dovrebbe essere guardato per i file in arrivo da qualsiasi programma che richiede che le informazioni . Il programma ( s ), che controlla la cartella di solito legge ed elabora i contenuti dei file ricevuti nella cartella designata , e quindi sposta i file in un'altra cartella o li cancella . Il programma a guardare la cartella può ciecamente elaborare ogni file come si arriva o controllare la proprietà " DateLastModified " del file per vedere se è arrivato qualcosa di nuovo . Istruzioni
1
Creare un nuovo progetto Visual Basic EXE standard . 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 a un oggetto FileSystemObject .
Dim oFSO As New Scripting.FileSystemObject
goccia un nuovo oggetto timer sul default " Form1 " e impostare l'intervallo di un numero che rappresenta il numero di millisecondi di attesa . Ad esempio, impostando l'intervallo a 2000 aspetterà 2 secondi.
3 Codice
la logica per quello che dovrebbe accadere quando i due secondi sono all'altezza . Il programma guarda la cartella designata e controlla ogni 2 secondi per vedere se un nuovo file è arrivato. Scrivi il codice all'interno di " Time1_Timer ( ) " per verificare la cartella chiamata " NEWarrivals . " Se il conteggio è maggiore di zero , un file è arrivato.
OFSO.GetFolder ( " NEWarrivals " ) . Files.Count > 0 Then
4
Controllare il " DateLastModified "la proprietà di un file trovato nel" NEWarrivals " cartella per assicurarsi che non è già stato elaborato
myFile = fso.GetFile . ( " c: \\ temp \\ test.txt " ) per < p > Se myFile.DateLastModified > tLastProcessedFile Poi
la variabile " tLastProcessedFile " è un valore memorizzato nel Registro di sistema , file di log o di database dall'ultimo file elaborato .
5
leggere ed elaborare ogni file che arriva nella cartella " NEWarrivals " di dichiarare e istanziare un oggetto che è un riferimento al file di testo vero e proprio.
oTextFile = oFSO.OpenTextFile ( strFileName , ForReading ) per
6
Spostare il file non appena hai finito di trasformazione in una cartella di backup predefinita . In genere , i file trasferiti vengono conservati per un determinato periodo di tempo e poi eliminati in modo permanente .
OFSO.MoveFile strFileName , strNewLocation