Como verificar se um arquivo existe no VB6

Escrito por kevin lee | Traduzido por vinícius albuquerque
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como verificar se um arquivo existe no VB6
Não verificar prováveis arquivos desaparecidos pode causar erros catastróficos (Jupiterimages/Photos.com/Getty Images)

Os desenvolvedores devem verificar a existência de um arquivo antes de tentar manipulá-lo. Se um programador tentar usar um arquivo que não estiver presente, o aplicativo pode falhar ou gerar resultados imprecisos. O VB6, também conhecido como "Visual Basic 6", não tem uma função chamada "Veja se esse arquivo existe". Contudo, ele possibilita detectar a presença de qualquer arquivo no computador, através de um método indireto.

Nível de dificuldade:
Moderadamente desafiante

Outras pessoas estão lendo

Instruções

  1. 1

    Inicie o aplicativo VB6 e pressione "Ctrl" e "N" para abrir a janela "New Project" (Novo projeto).

  2. 2

    Dê duplo clique em "Standard EXEC" para criar um novo projeto. O VB6 exibirá um formulário vazio em sua janela de edição.

  3. 3

    Dê duplo clique no botão "Command" (Comando), localizado na caixa de ferramentas, para colocá-lo no formulário.

  4. 4

    Clique com o botão direito nesse botão e clique em "View Code", para visualizar a janela de código.

  5. 5

    Coloque o código a seguir antes da declaração "End Sub", presente no código:

    Dim arquivoASerVerificado As String Dim arquivoExiste As Boolean Dim nomeDaPasta As String

    Esse código define três variáveis. A variável "arquivoASerVerificado" recebe o nome do arquivo que você desejar encontrar. A variável "arquivoExiste" recebe "True" ("verdadeiro") ou "False" ("falso"), dizendo se o arquivo existe ou não. O VB6 armazena o nome da pasta do arquivo na variável chamada "nomeDaPasta", se o arquivo existir.

  6. 6

    Coloque o código a seguir abaixo do código listado no passo anterior:

    arquivoASerVerificado = "C:\AlgumaPasta\AlgumArquivo.txt" nomeDaPasta = Dir(arquivoASerVerificado) If nomeDaPasta = "" Then arquivoExiste = False Else arquivoExiste = True

    End If MsgBox arquivoExiste

    Substitua "C:\AlgumaPasta\AlgumArquivo.txt" pelo nome completo do caminho para o arquivo que você desejar verificar. Por exemplo, se procurar pelo arquivo de nome "musica.jpg" em uma pasta chamada "Mídia", na partição "D", substitua "C:\AlgumaPasta\AlgumArquivo.txt" por "D:\Mídia\musica.jpg". A próxima linha de código irá executar a função "Dir". Ela examina o valor de "arquivoASerVerificado". Se o comando encontrar o arquivo especificado, ele armazenará o nome da pasta na variável "nomeDaPasta". Senão, receberá um valor em branco.

  7. 7

    Pressione "F5" para executar o aplicativo. Quando o formulário aparecer, clique no botão. O código será executado e uma caixa de mensagem exibirá "True" (verdadeiro), se o arquivo procurado existir. Se não, a caixa de mensagem exibirá "False" (falso).

Dicas & Advertências

  • Declarando uma variável booleana, como "arquivoExiste", ela ficará disponível para outros módulos em seu aplicativo. Esses módulos podem, então, decidir como agir, de acordo com a existência ou inexistência de um arquivo.

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