Olá pessoal,

Eu criei uma ListBox que lista todos os arquivos e pastas que eu tenho, o problema é salvar essas informações e comparar com uma ListBox futura para ver se alguma pasta ou arquivo foi mudado.Obs.: A lista(2) tem que comparar  todos os arquivos da lista(1) e informar o que foi mudado.

 

Obrigado...

 

 

Acho que é + ou - assim:

'ARMAZENAR A LISTA EM UM ARQUIVO TXT

dim lCont as long

Open "C:Lista1.txt" For Output as #1

 for lcont = 0 to lista(1).listcount

  Print #1, Lista(1).listindex(lcont)

 next lcont

Close #1

 

'2 - COMPARAR A LISTA COM O TXT

dim slinha as string

dim lcont as long

Open "C:Lista1.txt" For input as #1

 While not eof(1)

  line input #1, slinha

  for lcont =0 to lista(1).listcount

   if slinha = lista(1).list(lcont) then goto ExisteLinha

  next lcont

   debug.print "Arquivo ou pasta não encontrado: " & slinha

ExisteLinha:

 Wend

Close #1

 

OBS.: Não testei o código pois escrevi aqui no site mesmo, qq coisa responda o tópico.

 

[]´s

Vinícius