Como usar Dir $ no VB6

A linguagem de programação Visual Basic ainda tem alguns usos na programação moderna e no desenvolvimento de aplicativos e, como tal, você pode se aprofundar em sua sintaxe para fazer com que os aplicativos profissionais de sua empresa funcionem com aplicativos ou bibliotecas de código mais antigos. Usar a função Dir $ permite ver facilmente como a pesquisa de arquivos e pastas é feita por meio do VB6.

1

Use a função Dir $ para verificar se existe um arquivo. Se o arquivo não existir, a função retornará uma string vazia. O código a seguir determina se o arquivo "example.txt" existe ou não no diretório C:

Se Dir $ ("C: \ example.txt") = "" Então Msgbox "não está aqui!" Else Msgbox "aqui" End If

2

Use Dir $ para verificar se existe um diretório. Esse comando é idêntico ao que verifica se um arquivo existe, mas requer o uso de um argumento adicional, "vbDirectory", na chamada de função. Este código de exemplo verifica a existência de uma pasta denominada "exemplo" na partição C:

Se Dir $ ("C: \ exemplo", vbDirectory) = "" Então Msgbox "não aqui!" Else Msgbox "aqui" End If

3

Use Dir $ para listar o conteúdo de um diretório. Se você sabe que existe um diretório, você pode usar Dir $ para listar os arquivos dentro desse diretório. Usando uma variável chamada "nome", use Dir $ junto com um loop Do-While para obter o nome de cada arquivo em um diretório que tenha uma extensão de arquivo .txt:

Dim name As String

nome = Dir $ ("C: \ exemplo * .txt") Do Until name = "" Nome do nome de impressão = Dir $ () Loop