CARREGAR ARQUIVOS EM LISTVIEW
Bom dia,
Retirei um exemplo deste forum para carregar arquivos de um pasta no listview, porem estou tendo um certo problema e como o topico é antigo , acho que não vou ter resposta.
Abaixo esta o codigo para carrega o listview, porem ele carrega o list em forma desorganizada e não em colunas.1º problema.
No 2º problema, ao carregar o list pela 1º vez está tudo ok, mas ao carregar pela 2º vez ele dá um pau na linha. anx = dir$
Dim anx As String
anx = Leitor.Parametro("anexos") & VarCodigo
Do While anx <> ""
lista.ListItems.Add , , CStr(anx)
anx = Dir$
Loop
End Sub
agradeço pela ajuda.
Retirei um exemplo deste forum para carregar arquivos de um pasta no listview, porem estou tendo um certo problema e como o topico é antigo , acho que não vou ter resposta.
Abaixo esta o codigo para carrega o listview, porem ele carrega o list em forma desorganizada e não em colunas.1º problema.
No 2º problema, ao carregar o list pela 1º vez está tudo ok, mas ao carregar pela 2º vez ele dá um pau na linha. anx = dir$
Dim anx As String
anx = Leitor.Parametro("anexos") & VarCodigo
Do While anx <> ""
lista.ListItems.Add , , CStr(anx)
anx = Dir$
Loop
End Sub
agradeço pela ajuda.
1º Problema:
O List está sendo carregado com qual modo de visualização?
A propriedade Sort do List está ativa?
2º Problema:
Ao usar a Dir() para carga dos arquivos, ela move um ponteiro interno para cada arquivo que encontra. Ao final da primeira carga, esse ponteiro deve estar situado após o último arquivo e dessa forma, gera o erro citado.
Ao invés de usar a Dir(), você pode optar por usar o objeto File da biblioteca Scripting da M$. Ao invés de um bloco como:
você teria um bloco como:
Se puder indicar o link do código, fica mais fácil de o analisar.
O List está sendo carregado com qual modo de visualização?
A propriedade Sort do List está ativa?
2º Problema:
Ao usar a Dir() para carga dos arquivos, ela move um ponteiro interno para cada arquivo que encontra. Ao final da primeira carga, esse ponteiro deve estar situado após o último arquivo e dessa forma, gera o erro citado.
Ao invés de usar a Dir(), você pode optar por usar o objeto File da biblioteca Scripting da M$. Ao invés de um bloco como:
...
Do While anx <> ""
lista.ListItems.Add , , CStr(anx)
anx = Dir$
Loop
End Sub você teria um bloco como:
...
For each objFile In objFolder.Files
lista.ListItems.Add , , objFile.Name
Next
End Sub Se puder indicar o link do código, fica mais fácil de o analisar.
Tópico encerrado , respostas não são mais permitidas