Bom dia
Não consigo fazer esta pesquisa , é o seguite envio um arquivo via ftp e preciso pesquisar se o nome do arquivo enviado está em uma lista segue o código espero que alguém possa me ajudar:
Dim uploadarquivos , arquivosinvalidos , tipovide
Set uploadarquivos = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next
uploadarquivos.Upload
Dim matrizarquivos(115)
matrizarquivos(1) = "ajax-loader.gif"
matrizarquivos(2) = "arroba_banner.jpg"
matrizarquivos(3) = "asics_nimbus_11_vermelho_zoom.jpg"
matrizarquivos(4) = "barra_base.gif"
matrizarquivos(5) = "barra_fundo_menu.jpg"
matrizarquivos(6) = "barra_fundo_menu.png"
matrizarquivos(7) = "base_produtos.jpg"
matrizarquivos(8) = "bot_01.gif"
matrizarquivos(9) = "bot_01_a.gif"
matrizarquivos(10) = "bot_02.gif"
matrizarquivos(11) = "bot_02_a.gif"
matrizarquivos(12) = "bot_03.gif"
matrizarquivos(13) = "bot_03_a.gif"
matrizarquivos(14) = "bot_ampliar.gif"
matrizarquivos(15) = "bot_enviar.png"
matrizarquivos(16) = "bot_emviar_para_um_amigo.png"
matrizarquivos(17) = "bot_ok.png"
matrizarquivos(18) = "conteudo_produto.jpg"
matrizarquivos(19) = "foto_loja.jpg"
matrizarquivos(20) = "foto_loja2.jpg"
matrizarquivos(21) = "fundo.jpg"
matrizarquivos(22) = "fundo_af3.jpg"
matrizarquivos(23) = "fundo_buscar.png"
matrizarquivos(24) = "fundo_destaques_da_semana.jpg"
matrizarquivos(25) = "fundo_envie.jpg"
matrizarquivos(26) = "fundo_imprensa.jpg"
matrizarquivos(28) = "fundo_menu2.jpg"
matrizarquivos(29) = "fundo_rodape.jpg"
matrizarquivos(30) = "fundo_tamanho.png"
matrizarquivos(31) = "icone_facebook.jpg"
matrizarquivos(32) = "icone_flickr,jpg"
matrizarquivos(33) = "icone_orkut.jpg"
matrizarquivos(34) = "icone_twitter.jpg"
matrizarquivos(35) = "icone_youtube.jpg"
matrizarquivos(36) = "imagem_tv_01.jpg"
matrizarquivos(37) = "imagem_tv_02.jpg"
matrizarquivos(38) = "imagem_tv_03.jpg"
matrizarquivos(39) = "imagem_tv_04.jpg"
matrizarquivos(40) = "imagem_tv_05.jpg"
matrizarquivos(41) = "img_camera.jpg"
matrizarquivos(42) = "img_franquia.jpg"
matrizarquivos(43) = "img_lojas_01.jpg"
matrizarquivos(44) = "img_lojas_02.jpg"
matrizarquivos(45) = "img_lojas_03.jpg"
matrizarquivos(46) = "img_topo_exclusivos.jpg"
matrizarquivos(47) = "img_topo_feminino.jpg"
matrizarquivos(48) = "img_topo_infantil.jpg"
matrizarquivos(49) = "img_topo_lancamentos.jpg"
matrizarquivos(50) = "img_topo_lojas.jpg"
matrizarquivos(51) = "img_topo_masculino.jpg"
matrizarquivos(52) = "img_topo_promocoes.jpg"
matrizarquivos(53) = "linha_cinza.gif"
matrizarquivos(54) = "linha_menu.png"
matrizarquivos(55) = "linha_produtos.png"
matrizarquivos(56) = "logoAF.gif"
matrizarquivos(57) = "logoAF_rodape.gif"
matrizarquivos(58) = "logotipos.jpg"
matrizarquivos(59) = "logo_hope.png"
matrizarquivos(60) = "logo_olympikus.gif"
matrizarquivos(61) = "mapa_brasil.jpg"
matrizarquivos(62) = "produto_detalhado_youtube.png"
matrizarquivos(63) = "sac_analize_de_defeito.png"
matrizarquivos(64) = "sac_analize_de_defeito_p_baixo.png"
matrizarquivos(65) = "sac_barra_duvidas_01.png"
matrizarquivos(66) = "sac_barra_duvidas_02.png"
matrizarquivos(67) = "sac_desistencia_de_compra.png"
matrizarquivos(68) = "sac_desistencia_de_compra_seta_p_baixo.png"
matrizarquivos(69) = "sac_restituicao_de_valores.png"
matrizarquivos(70) = "sac_restituicao_de_valores_seta_p_baixo.png"
matrizarquivos(71) = "sac_texto_desistencia.jpg"
matrizarquivos(72) = "sac_topo.jpg"
matrizarquivos(73) = "sac_troca_de_produtos.png"
matrizarquivos(74) = "sac_troca_de_produtos_seta_p_baixo.png"
matrizarquivos(75) = "selo_bota_fora_g.png"
matrizarquivos(76) = "selo_bota_fora_gg.png"
matrizarquivos(77) = "selo_bota_fora_m.png"
matrizarquivos(78) = "selo_bota_fora_p.png"
matrizarquivos(79) = "selo_bota_fora_pp.png"
matrizarquivos(80) = "selo_exclusivo_g.png"
matrizarquivos(81) = "selo_exclusivo_gg.png"
matrizarquivos(82) = "selo_exclusivo_m.png"
matrizarquivos(83) = "selo_exclusivo_p.png"
matrizarquivos(84) = "selo_exclusivo_pp.png"
matrizarquivos(85) = "selo_lancamento_g.png"
matrizarquivos(86) = "selo_lancamento_gg.png"
matrizarquivos(87) = "selo_lancamento_m.png"
matrizarquivos(88) = "selo_lancamento_p.png"
matrizarquivos(89) = "selo_lancamento_pp.png"
matrizarquivos(90) = "selo_lançamento_g.png"
matrizarquivos(91) = "selo_lançamento_gg.png"
matrizarquivos(92) = "selo_lançamento_m.png"
matrizarquivos(93) = "selo_lançamento_p.png"
matrizarquivos(94) = "selo_lançamento_pp.png"
matrizarquivos(95) = "seta.jpg"
matrizarquivos(96) = "setamais.jpg"
matrizarquivos(97) = "setamenos.jpg"
matrizarquivos(98) = "seta_base.gif"
matrizarquivos(99) = "seta_busca_lojas.jpg"
matrizarquivos(100) = "seta_dir.gif"
matrizarquivos(101) = "seta_esq.gif"
matrizarquivos(102) = "sky_01.jpg"
matrizarquivos(103) = "sky_02.jpg"
matrizarquivos(104) = "thumbs.db"
matrizarquivos(105) = "topo_destaques.jpg"
matrizarquivos(106) = "topo_destaques_3.jpg"
matrizarquivos(107) = "topo_imprensa.jpg"
matrizarquivos(108) = "topo_produtos.jpg"
matrizarquivos(109) = "tv.swf"
matrizarquivos(110) = "tv_rodape_img_01.jpg"
matrizarquivos(111) = "tv_rodape_img_02.jpg"
matrizarquivos(112) = "tv_rodape_img_03.jpg"
matrizarquivos(113) = "tv_rodape_img_04.jpg"
matrizarquivos(114) = "tv_rodape_img_04a.jpg"
matrizarquivos(115) = "tv_rodape_img_05.jpg"
arquivosinvalidos = False
arquivonome1 = uploadarquivos.Files.Item(1).FileName
For contador = 1 to 115
contador = CStr(contador)
arquivonome = matrizarquivos(contador)
Next
If arquivonome1 <> arquivonome Then
arquivosinvalidos = True
Else
arquivosinvalidos = False
End If
Ocorre que preciso fazer o loop ou seja verificar todos os arquivos da lista pois esta retornando false após ele verificar o primeiro arquivo
obrigado
Alguém por favor
