deletar em massa

[AEM 0]

Ae pessoal, beleza??sabe os emails internos deste forum.. pois é... preciso saber como se monta uma instrução que delete multiplas mensagens....ou seja.. seleciono as que quero deletar e envio o form... outra pagina pega os parametros e exclui,..não sei oq tenho que usar para isso....vlw...

[Mário Monteiro 179]

use checkbox

 

http://www.imasters.com.br/forum/index.php?showtopic=17111

[AEM 0]

ae mario... vlw pela dica... vou usar isso com FSO... para deletar arquivos multiplos de uma vez...mas como aplicar um ARRAY em FSO.... A intençao é usar o nome do arquivo...

[Mário Monteiro 179]

faz semelhante....manda gerar os checkbox com os nomes dos arquivos e quando passar verificar se estão marcados, se estiverm apaga...

[AEM 0]

Esta é a página que Lista os Arquivos

ASP [/tr][tr]<%

'Declara as variáveis a serem usadas

Dim Local, Folder, File, ObjFS

'Especifica o endereço do conteúdo a ser exibido

Local = "C:\web"

Response.Write Local

'Cria o objeto FileSystemObject

Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = ObjFS.GetFolder(Local)

 

Response.Write "<table border='1' bordercolor='gainsboro' cellpadding=2 cellspacing=0 width='100%' style='font-family: Tahoma, Arial; font-size: 11px;'>"

Response.Write " <tr style='background: gainsboro'>"

Response.Write " <td><b>Selecionar</b></td>"

Response.Write " <td><b>Nome</b></td>"

Response.Write " <td><b>Tipo</b></td>"

Response.Write " <td><b>Tamanho em bytes</b></td>"

Response.Write " <td><b>Data da última modificação</b></td>"

Response.Write " </tr>"

 

'Exibe pastas encontradas

For Each Folder in objFolder.Subfolders

Response.Write " <tr>"

Response.write " <td><input type=checkbox name='checkbox' value='" & Local & "\" & Folder.Name & "'></td>"

Response.write " <td><a href=apagar.asp?tipo=Folder&Deletar=" & Local & "\" & Folder.Name & "> "& Folder.Name & " </a></td>"

Response.Write " <td>" & Folder.Type & "</td>"

Response.Write " <td align=right>" & Folder.Size & "  </td>"

Response.Write " <td>" & Folder.DateLastModified & "</td>"

Response.Write " </tr>"

Next

 

'Exibe arquivos encontrados

For Each File in objFolder.files

'no Check Box passo o caminho do arquivo completo para facilitar..

Response.Write " <tr>"

Response.Write " <td><input type='checkbox' name='checkbox' value='" & Local & "\" & File.Name & "'></td>"

Response.Write " <td><a href=apagar.asp?tipo=File&deletar=" & Local & "\" & File.Name & ">" & File.Name & "</a></td>"

Response.Write " <td>" & File.Type & "</td>"

Response.Write " <td align=right>" & File.Size & "  </td>"

Response.Write " <td>" & File.DateLastModified & "</td>"

Response.Write " </tr>"

Next

 

Response.Write "</table>"

 

'Elimina variáveis da memória

Set Local = Nothing

Set File = Nothing

Set objFolder = Nothing

Set Folder = Nothing

%>

<p align="center">

<input type="submit" name="Submit" value="Apagar Itens">

</p>

</form>

</body>

</html>

[/tr]

 

Aqui é a página que deleta os arquivos

ASP [/tr][tr]<%

 

if Not isNull(Request.QueryString("Form")) And Not isNull(Request.QueryString("Checkbox")) Then

For x = LBOUND(request("Checkbox")) TO UBOUND (request("Checkbox")) '****************** esta dando LBOUND - Tipos imcompatíveis

'Na outra pagina determino no link o tipo.. se é pasta ou arquivo.. no check box eu não sei se da pra passar esse parâmetro

If Request.QueryString("Tipo") = "File" Then

'declara o Objeto FSO

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

'Use Request.QueryString para pegar o nome do arquivo e armazene em uma variável.

deletar = Request.QueryString("checkbox")

'Verifica se o Arquivo Existe

If objFS.FileExists (deletar) Then

'Deleta o Arquivo

objFS.DeleteFile (deletar)

'Fecha o obj FSO

Set objFS = Nothing

'Comunica a Exclusão

Response.Write "O arquivo foi excluido com sucesso"

Else

'Comunica a Não Exclusão pois poderia ja ter sido excluido.

Response.Write "O arquivo não pode ser excluido, pois não foi encontrado"

End If

End If

 

'Faz a Exclusão se for uma Pasta incluindo os arquivos dela

'Na outra pagina determino no link o tipo.. se é pasta ou arquivo.. no check box eu não sei se da pra passar esse parâmetro

If Request.QueryString("Tipo") = "Folder" Then

'declara o Objeto FSO

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

'Use Request.QueryString para pegar o nome do arquivo e armazene em uma variável.

deletar = Request.QueryString("checkbox")

'Verifica se o Arquivo Existe - Isso para evitar problemas com atualização

If objFS.FolderExists (deletar) Then

'Deleta o Arquivo

objFS.DeleteFolder (deletar)

'Fecha o obj FSO

Set objFS = Nothing

'Comunica a Exclusão

Response.Write "A Pasta foi excluida com sucesso"

Else

'Comunica a Não Exclusão pois poderia ja ter sido excluido.

Response.Write "A Pasta não pode ser excluida, pois não foi encontrada"

End If

End IF

Next

END if

%>

[/tr]

 

na segunda pagina aparece o erro

Erro de tempo de execução do Microsoft VBScript error '800a000d'

 

Tipos incompatíveis: 'LBOUND'

 

/discoVirtual/apagar.asp, line 15

A linha esta apontada com **************

não sei nem se é assim que se usa Array,... me perdoa sou leigo de tudo

[AEM 0]

o código de exclusão ainda n esta pronto... o interessante é sair do erro acima

[Salgado 4]

Troque essa linhaFor x = LBOUND(request("Checkbox")) TO UBOUND (request("Checkbox"))[/tr]

Por essa:

For x = 1 TO request("Checkbox").Count[/tr]

E também essas:

deletar = Request.QueryString("checkbox")[/tr]

Por:

deletar = Request("checkbox")(x)[/tr]

, Tenho que corrigir depois o artiguinho lá no FAQ.

[AEM 0]

pelo jeito de certo ...vlw... o problema agora é informar junto com o checkbox o tipo... se é arquivo ou pasta...Vlw pela ajuda.....