Como monitorar uma pasta no VB6

Escrito por lora covrett | Traduzido por fernando lopes
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como monitorar uma pasta no VB6
Inúmeras pastas físicas podem ser acessadas com um clique no computador (IT Stock/Polka Dot/Getty Images)

Dados de fontes externas, tais como e-mail e outros programas são normalmente encaminhados para uma pasta específica identificada na rede. A pasta deve ser monitorada para entrada de arquivos por qualquer programa que necessite dessas informações. O programa que monitora a pasta geralmente lê e processa os conteúdos do arquivo recebido pela pasta designada e depois move os arquivos para outra pasta ou os deleta. O programa que estiver monitorando a pasta pode indistintamente processar cada arquivo assim que chega ou marcar a propriedade de arquivo como "DateLastModified" (data de última modificação) para ver se algo novo chegou.

Nível de dificuldade:
Moderadamente desafiante

Outras pessoas estão lendo

Instruções

  1. 1

    Crie um novo projeto Standard EXE Visual Basic. Selecione "Project" (projeto), "References" (referências) e clique na caixa perto de "Microsoft Scripting Runtime". Clique em "OK" para salvar e fechar.

  2. 2

    Declare e instancie uma referência a um FileSystemObject.

    Dim oFSO As New Scripting.FileSystemObject

    Coloque um novo objeto temporizador no padrão "Form1" e estabeleça o intervalo em um número que represente os milissegundos de espera. Por exemplo, configurar o intervalo em 2000 fará esperar 2 segundos.

  3. 3

    Codifique a lógica para o que deve acontecer quando acabarem-se os dois segundos. O programa monitora a pasta designada e a checa a cada 2 segundos para verificar se um novo arquivo chegou. Escreva o código dentro de "Time1_Timer()" para checar a pasta chamada "NewArrivals" (novas entradas). Se o contador for maior que zero, um arquivo chegou.

    If oFSO.GetFolder("NewArrivals").Files.Count > 0 Then

  4. 4

    Cheque a propriedade "DateLastModified" de um arqvuio na pasta "NewArrivals" para certificar-se de que já não tenha sido processado.

    Set myFile = fso.GetFile("c:\temp\test.txt") If myFile.DateLastModified > tLastProcessedFile Then

    A variável "tLastProcessedFile" é um valor armazenado no registro ou arquivo log ou no banco de dados do último arquivo processado.

  5. 5

    Leia e processe cada arquivo que chegar na pasta "NewArrivals" declarando e instanciando um objeto que seja uma referência ao verdadeiro arquivo de texto.

    Set oTextFile = oFSO.OpenTextFile(strFileName, ForReading)

  6. 6

    Mova o arquivo assim que terminar de processá-lo para uma pasta de backup pré-definida. Tipicamente, os arquivos movidos são mantidos por um período específico e depois apagados permanentemente.

    oFSO.MoveFile strFileName, strNewLocation

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível