AJUDA COM ARRAY

PERCIFILHO 04/10/2013 15:25:10
#429565
Tenho uma tabela de Configuracoes com a seguinte estrutura e os dados:

Tipo_Arquivo - Extensao
PDF pdf
EXCEL xls
EXCEL xlsx
WORD doc
WORD docx
TEXTO txt
TEXTO ini
TEXTO log
TEXTO bat
TEXTO cfg

Preciso fazer o seguinte:
o usuário vai escolher um tipo de arquivo para listar tos os arquivos que estão em um diretório.
Por exemplo, o usuário escolheu o tipo TEXTO.
Então faremos a consulta sql: [Ô]SELECT * FROM Configuracoes WHERE tipoarquivo LIKE [ô]TEXTO[ô][Ô]
E mostraremos em um DataGridView todos os arquivos do tipo texto de acordo com as extensões que estão
gravadas na tabela, neste exemplo, todos os arquivos que tenham as extensões: [Ô]txt[Ô] e [Ô]ini[Ô]
Tenho este código abaixo para fazer isso, porém não está correto.
Quando na tabela existe apenas uma extensão, ele mostra certo, porém quando existem mais de uma extensão,
não consigo fazer a array para mostrar todas as extensões.

Dim fila As String = [Ô][Ô]
Dim contador As Integer = 1
Dim cmdtipos As New SqlCeCommand([Ô]Select * From Configuracoes Where tipoarquivo Like [ô]TEXTO[ô][Ô], conexao)
cmdtipos.Connection = ccconexao
conexao.Open()
Dim drtipos As SqlCeDataReader = cmdtipos.ExecuteReader()
While drtipos.Read
    Dim extensao As String = drtipos.Item([Ô]extensao[Ô])
    If contador = 1 Then
        fila = [Ô]*.[Ô] & drtipos.Item([Ô]extensao[Ô])
    Else
        fila = fila & [Ô], *.[Ô] & drtipos.Item([Ô]extensao[Ô])
    End If
    contador += 1
End While
conexao.Close()
extensoes = New String() {fila}
[ô] a array teria que ficar assim:
[ô] extensoes = New String() {[Ô]*.txt[Ô], [Ô]*.ini[Ô], [Ô]*.log[Ô], [Ô]*.bat[Ô], [Ô]*.cfg[Ô]}
imagem = Image.FromFile(Application.StartupPath & [Ô]\images\icone_texto.ico[Ô])

For Each extensao As String In extensoes
    Dim arquivos As FileInfo() = diretorio.GetFiles(extensao)
    For Each arquivo As FileInfo In arquivos
        tamanho = (Math.Round(arquivo.Length / 1024)).ToString() & [Ô]KB[Ô]
        data = arquivo.CreationTimeUtc
        DgvArquivos.Rows.Add(imagem, arquivo.FullName, tamanho, data)
    Next
Next


Alguém pode me ajudar por favor?

Até
KERPLUNK 04/10/2013 18:14:13
#429574
contador += 1
Tópico encerrado , respostas não são mais permitidas
Voltar