Eu não entendi muito bem o que você quis dizer com:
[...] trocar a parte "*.jpg", "*.mp4", "*.doc"
por uma variavel [...]
mas, entendi que você quer listar determinados tipos de arquivos de um caminho específico, incluindo suas subpastas.
Pelo que entendi, e testei, o método FileSystem.GetFiles()
não aceita múltiplos tipos de arquivos no parâmetro wildcards
, para filtrar a lista de arquivos, então, uma solução seria você criar um array com a lista de tipos que quer filtrar e chamar o método FileSystem.GetFiles()
múltiplas vezes, para cada tipo de arquivo.
Ficaria assim:
Dim wildcards As String() = {"*.jpg",
"*.mp4",
"*.doc"}
For Each wildcard As String In wildcards
For Each arquivo In FileIO.FileSystem.GetFiles(caminho,
FileIO.SearchOption.SearchAllSubDirectories,
wildcard)
' Faz algo com o arquivo retornado.
Next
Next
Edição
Respondendo à alteração da pergunta, a sua variável pode ser o Array
que sugeri na primeira versão da resposta:
Dim curingas As String() = {"*.jpg",
"*.mp4",
"*.doc"}
Ou poderia ser um List
, que fica fácil remover ou adicionar extensões:
Dim curingas As New List(Of String)({"*.jpg",
"*.mp4",
"*.doc"})
' Remove algumas extensões da lista.
curingas.Remove("*.jpg")
curingas.Remove("*.doc")
' Adiciona novas extensões à lista.
curingas.Add("*.mkv")
curingas.Add("*.avi")
Ou poderia até ser um String
mesmo, como você queria inicialmente, que poderia ser transformado em um array, usando o caractere pipe (ou qualquer outro) como separador:
Dim curingasStr As String = "*.jpg|*.mp4|*.doc"
Dim curingasArray = curingasStr.Split("|")
Mas, como eu disse anteriormente, o método FileSystem.GetFiles()
não aceita múltiplos tipos de arquivos no parâmetro wildcards
, então você poderia encapsular a chamada ao método, mais ou menos assim:
Public Function ObterArquivos(caminho As String,
curingas As List(Of String)
) As List(Of String)
Dim arquivosRetorno As New List(Of String)
For Each curinga As String In curingas
For Each arquivo In FileIO.FileSystem.GetFiles(caminho,
FileIO.SearchOption.SearchAllSubDirectories,
curinga)
arquivosRetorno.Add(arquivo)
Next
Next
Return arquivosRetorno
End Function
E poderia até ter uma versão de sobrecarga (overload) da função, para usar a variável de extensões no tipo String
, como você queria. Essa versão transformaria a variável String
com as extensões em um List
e chamaria a versão original da função:
' Versão de sobrecarga (overload) da função ObterArquivos().
Public Function ObterArquivos(caminho As String, curingas As String) As List(Of String)
Dim curingasArray As String() = curingas.Split("|")
Dim curingasLista As List(Of String) = curingasArray.ToList()
Return ObterArquivos(caminho, curingasLista)
End Function