|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Exemplo da função Dir (Verificar a existencia de um Arquivo ou Dir)
|
 |
|
|
|
Postada em 2/9/2004 por Geronimo
Este exemplo utiliza a função Dir para verificar se determinados arquivos e diretórios existem.
Dim MeuArquivo, MeuCaminho, MeuNome
' Retorna "WIN.INI" se existir.
MeuArquivo = Dir("C:WINDOWSWIN.INI")
' Retorna o nome do arquivo com a extensão especificada. Se existir mais de um arquivo *.ini,
' o primeiro arquivo encontrado será retornado.
MeuArquivo = Dir("C:WINDOWS*.INI")
' Chama Dir novamente sem argumentos para retornar o próximo arquivo *.INI no
' mesmo diretório.
MeuArquivo = Dir
' Retorna primeiro o arquivo *.TXT com um atributo oculto definido.
MeuArquivo = Dir("*.TXT", vbHidden)
' Exibe os nomes em C: que representam diretórios.
MeuCaminho = "c:" ' Define o caminho.
MeuNome = Dir(MeuCaminho, vbDirectory) ' Recupera a primeira entrada.
Do While MeuNome <> "" ' Inicia o loop.
' Ignora o diretório atual e o diretório abrangente.
If MeuNome <> "." And MeuNome <> ".." Then
' Utiliza a comparação bit a bit para se certificar de que MeuNome é um diretório.
If (GetAttr(MeuCaminho & MeuNome) And vbDirectory) = vbDirectory Then
Debug.Print MeuNome ' Exibe a entrada somente se
End If ' representar um diretório.
End If
MeuNome = Dir ' Obtém a próxima entrada.
Loop
|
|
|
|
|
