Como: Determinar quantos arquivos estão em um diretório no Visual Basic
Você pode usar o GetFiles método para retornar uma coleção somente leitura de seqüências de caracteres que representa os nomes dos arquivos no diretório especificado. Em seguida, você pode usar a propriedade Count para determinar o número de arquivos.
Para determinar o número de arquivos em um diretório
Use o método GetFiles para retornar a coleção de arquivos no diretório especificado. Este exemplo retorna os arquivos no diretório chamado TestDir.
Dim counter = My.Computer.FileSystem.GetFiles("C:\TestDir")Use a propriedade Count para determinar o número de arquivos na coleção. Este exemplo exibe o resultado em uma caixa de mensagem.
MsgBox("number of files is " & CStr(counter.Count))
Exemplo
Este exemplo, que apresenta o trecho acima no formato completo, conta o número de arquivos em TestDir e o informa em uma caixa de mensagem.
Dim counter = My.Computer.FileSystem.GetFiles("C:\TestDir")
MsgBox("number of files is " & CStr(counter.Count))
Compilando o código
Este exemplo requer:
Acesso aos membros do espaço de nomes System.Collections. Adicione uma declaração Imports se você não está qualificando completamente os nomes de membros em seu código. Para obter mais informações, consulte Declaração Imports (Tipo e Namespace .NET).
Um diretório chamado TestDir na localidade especificada. Substitua o caminho pelo caminho do diretório que deseja examinar.
Programação robusta
As seguintes condições podem causar uma exceção:
O caminho não é válido para um dos seguintes motivos: ela é uma seqüência de comprimento zero, ele contém somente espaços em branco, ele contém caracteres inválidos ou é um caminho de dispositivo (começa com \ \. \) (ArgumentException).
O caminho não é válido porque ele é Nothing (ArgumentNullException).
O diretório não existe ou é um arquivo (DirectoryNotFoundException).
directory aponta para um arquivo existente (IOException).
O caminho excede o comprimento máximo definido pelo sistema (PathTooLongException).
Um arquivo ou nome da pasta no caminho contém dois-pontos (:) ou está em formato inválido (NotSupportedException).
O usuário não possui permissões necessárias para exibir o caminho (SecurityException).
O usuário não possui as permissões necessárias (UnauthorizedAccessException).
Consulte também
Tarefas
Como: Obtenha a coleção de arquivos em um diretório em Visual Basic
Como: Localizar arquivos com um padrão específico de Visual Basic
Referência
Outros recursos
Propriedades de arquivo, diretório e unidade no Visual Basic