dados a partir de fontes externas, tais como e-mail ou outros programas é muitas vezes entregue a uma pasta específica identificada na rede. Essa pasta deve ser observado para os arquivos recebidos por qualquer programa que exige que as informações . O programa (s) que assiste a pasta normalmente lê e processa o conteúdo dos arquivos recebidos na pasta designada , em seguida, move os arquivos para outra pasta ou excluí-los . O programa assistindo a pasta pode cegamente processar cada arquivo que ele chega ou verificar a propriedade " data de modificação " do arquivo para ver quando algo novo chegou. Instruções
1

Crie um novo projeto Visual Basic Standard EXE. Selecione "Projeto ", "Referências" e clique na caixa ao lado de " Microsoft Scripting Runtime ". Clique em "OK" para salvar e fechar.
2

Declarar e instanciar uma referência a um FileSystemObject .

Dim oFSO As New Scripting.FileSystemObject

Queda de um novo temporizador objeto no padrão " Form1 " e defina o intervalo para um número que representa o número de milissegundos de espera . Por exemplo, definir o intervalo para 2000 vai esperar 2 segundos.
3

Código a lógica para o que deve acontecer quando os dois segundo estão em alta. O programa observa a pasta designada e verifica a cada 2 segundos para ver se um novo arquivo chegou. Escreva o código dentro " Time1_Timer () " para verificar a pasta chamada " NEWarrivals ". Se a contagem for maior que zero, um arquivo chegou.

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

Marque a opção " data de modificação " propriedade de um arquivo encontrado no" NEWarrivals " pasta para garantir que ele ainda não tenha sido processada

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

Se myFile.DateLastModified > tLastProcessedFile Então

a variável " tLastProcessedFile " é um valor armazenado no Registro , arquivo de log ou banco de dados a partir do último arquivo processado .
5

Leia e processar cada arquivo que chega na pasta " NEWarrivals " , declarando e instanciar um objeto que é uma referência para o arquivo de texto real .

Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )

6

Mova o arquivo assim que você terminar de processá-lo para uma pasta de backup pré-definido. Normalmente, os arquivos movidos são mantidos por um período específico e , em seguida, excluído permanentemente .

OFSO.MoveFile strFileName , strNewLocation