Apagar Arquivos Da Pasta

[jucacabala]

ola povao

tenho uma pagina de upload para uma pasta e grava o nome do arquivo no banco.

Isto esta funcionando OK.

tenho uma outra pagina que lista os registros do meu BD. cada um deles possui um checkbox para exclusão, podendo o usuario excluir mais de um registro de uma vez so. Isto tambem esta OK.

o que preciso é excluir da pasta todos os arquivos que foram selecionados, usando FSO

sei como faço para exluir um arquivo. agora dois não tenho a minima noção.

sera que voces podem me ajudar?

Beijocas da Ju

[bareta]

veja o tópico de tutotriais

[Marcos-rj]

Da uma olhada neste post, foi colocado hoje.

http://scriptbrasil.com.br/forum/index.php?showtopic=66285

e tem outros faz uma busca no forum.

[jucacabala]

RESPOSTA

no form:

<input name="id" type="checkbox" id="id" value="<% = rs.Fields("ID") %>">

na pagina delete:

<%

DIM conexaodb, rs, str, id

ARRcodAltera = trim(request("id")) '-- pega todos IDs selecionados

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

if len(ARRcodAltera) > 0 then '-- se há conteudo na variavel

id = split(ARRcodAltera,",") '-- pega a listagem de IDs separados por virgula e cria matriz

call abreconexao

for i = 0 to ubound(id) '-- para cada item da matriz

'-- selecionar titulo do arquivo

set rs = conexaodb.Execute("select titulo from download where id="&id(i))

titulo = rs(0)

arquivo = "C:\web\download\"&titulo

If objFS.FileExists(arquivo) Then '-- se o arquivo existe apaga o arquivo da pasta e o registro no BD

objFS.DeleteFile(arquivo)

conexaodb.Execute("DELETE * FROM download WHERE id=" & id(i))

msg = msg & "<br>- " & titulo & " excluido (" & arquivo & ")"

else

msg = msg & "<br>- " & titulo & " não encontrado (" & arquivo & ")"

end if

next

else

msg = "Nenhum arquivo selecionado."

end if

Set objFS = Nothing %>

[bareta]

resolvido.. fechando