Ir para conteúdo
Fórum Script Brasil
  • 0

Apagar Arquivos Da Pasta


jucacabala

Pergunta

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 rolleyes.gif

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

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 %>

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...