DUVIDA COMBOBOX
Oie. Boa Tarde! Preciso da ajudad e vcs. Verifico um diretório se existe arquivos de existe copio para o c:\Teste. Até ai tudo bem. Só q tenho q jogar o nome dos arquivos [Ô]txt[Ô] em um combobox, desde q ele não exista. Obs.: Sempre q cair um arquivo novo ele verifica se existe no diretório c:\Teste se ñ copia para ele tira do diretório raÃz e verifica todos os items do combobox se não existir add ele.
Olá, vou colocar um exemplo aqui só de como vc colocar no combobox, verificando antes se o nome já existe nele. Se existir, não add no combo, senão, add no combo. Se bem seja isso a sua dúvida. Senão, poste mais detalhes.
dim wExiste as boolean, I as integer
[ô]NomeArquivo é a variável que contém o nome de seu arquivo.
[ô]cmbArquivos é o nome do objeto combobox
wExiste = false
for i = 0 to cmbArquivos.listcount -1
if NomeArquivo = cmbArquivos.list(i) then
wexiste = true
exit for
endif
next
if not wExiste then
cmbArquivos.Additem NomeArquivo
endif
dim wExiste as boolean, I as integer
[ô]NomeArquivo é a variável que contém o nome de seu arquivo.
[ô]cmbArquivos é o nome do objeto combobox
wExiste = false
for i = 0 to cmbArquivos.listcount -1
if NomeArquivo = cmbArquivos.list(i) then
wexiste = true
exit for
endif
next
if not wExiste then
cmbArquivos.Additem NomeArquivo
endif
Tópico encerrado , respostas não são mais permitidas