Apagar várias fotos com checkbox

[neotheone 0]

Fala pessoal, to desenvolvendo um sistema de galeria de imagens, e essa parte aí é do administrador, eu seleciono em um formulário várias fotos que quero deletar com checkbox, daí ele chama essa página, os nomes das fotos são passadas para um arquivo TXT, depois dissu, eu abro o arquivo txt e jogo tudo em um vetor, depois percorro o vetor deletando, porém ele só deleta uma foto, as outras ele nao encontra, eu marquei com ****** a linha q da erro.

 

 

Mensagem de erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0035)

Arquivo não encontrado

/estudo_asp/excel/apagar.asp, line 39

 

 

ASP

<%

dim foto, objeto, x, arquivo

dim gravarArquivo

dim arrayLinha

dim cont

dim tam

dim nomeArquivo

cont=0

 

foto=request.Form("fotos")

'criação de arquiv txt para poder gravar as fotos selecionadas

set arquivo=server.CreateObject("Scripting.FileSystemObject")

set gravarArquivo=arquivo.CreateTextFile("C:Inetpubwwwrootestudo_ASPexcelimagensfotos.txt",true)

gravarArquivo.writeLine(foto)

gravarArquivo.close()

'------------------------------------------------------------------------------------------------------

set objeto=server.CreateObject("Scripting.FileSystemObject")

set abrirArquivo = objeto.OpenTextFile("C:Inetpubwwwrootestudo_ASPexcelimagensfotos.txt")

 

do while not abrirArquivo.AtEndOfStream

 

arrayLinha=split(abrirArquivo.ReadLine,",",-1,1)

 

loop

%>

<% abrirArquivo.Close %>

 

<%

tam=ubound(arrayLinha)

for i=0 to tam

 

******set x = objeto.GetFile("C:Inetpubwwwrootestudo_ASPexcelimagens"&arrayLinha(i))

x.delete

'set x=nothing

 

next

%>

[Mário Monteiro 179]

como é que fica seu txt

 

estive olhando seu codigo e aparentemente ele so vai excluir a imagem que estiver na ultima linha

 

veja

 

ASP

do while not abrirArquivo.AtEndOfStream

arrayLinha=split(abrirArquivo.ReadLine,",",-1,1)

loop

 

os valores do array vao se sobrescrevendo até a ultima linha

 

era mais correto colocar logo a instrução que deleta dentro deste laço

[neotheone 0]

como é que fica seu txt

 

estive olhando seu codigo e aparentemente ele so vai excluir a imagem que estiver na ultima linha

 

veja

 

ASP

do while not abrirArquivo.AtEndOfStream

arrayLinha=split(abrirArquivo.ReadLine,",",-1,1)

loop

 

os valores do array vao se sobrescrevendo até a ultima linha

 

era mais correto colocar logo a instrução que deleta dentro deste laço

o meu arquivo txt fica da seguinte maneira:

 

foto01.jpg, foto02.jpg, foto03.jpg

[Mário Monteiro 179]

é apenas uma linha mesmo?

[neotheone 0]

é assim que ele vai gravando no txtfoto01.jpg, foto02.jpg, foto03.jpgeu passo pro meu arrayList separando por virgula mesmo, tanto é que se eu imprimir o vetor dessa forma aqui:arrayList (0)arrayList (1)arrayList (2)ele imprime direitinho o nome das fotoso problema q na hora q eu vo deletar, ele realmente deleta achu q a ultima foto q entrou no vetornao sei pq