Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fabiosc80

Apagando Arquivos (Imagens da pasta Upload).

Por , em ASP Clássico

Recommended Posts

fabiosc80    0

fabiosc80
Postado

beleza Pessoal.To com uma duvida aqui.Tenho um sistema que tem Upload(AspSmartUpload) que quando a pessoa cadastra um produto sobe a imagem pra pasta "UPLOAD" e grava o caminho no banco de dados(EX: "Fabio.jpg")A Dúvida é a seguinte:Quando eu excluir um registro de uma imagem do banco tenho que apagar tambem essa imagem da Pasta Upload do Servidor, e quando eu excluir por exemplo um Evento que tenha uns 5 Produtos cadastrados para ele(relacionados) ou mais produtos(podem ser mais de 5) tem que apagar tambem esses 5 de uma vez.Como faço isso.Parece que pelo que sei é feito isso por "FSO" porem nunca entendi isso e outra tem que deletar 1 arquivo somente e mais de 1 tambem as vezes de uma vez. Ai Complica.Alguem poderia me ajudar?Desde já Agradeço a Ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

eh com FSO mesmo que apaga o arquivo fisico você pega os caminhos num loop e apaga é simples...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Bom para excluir os arquivos pode usar assim...ele apaga todos os arquivos na pasta definida na variavel diretorio..

 

 

ASP

[*]<html>

 

[*]<head>

 

[*]<title></title>

 

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*]</head>

 

[*]

 

[*]<body>

 

[*]<%

 

[*]

 

[*]Set FSO= Server.CreateObject("Scripting.FileSystemObject")

 

[*]diretorio= "C:\fotos"

 

[*]Set Pasta = FSO.GetFolder(diretorio)

 

[*]

 

[*]For Each Arq in Pasta.Files

 

[*]FSO.DeleteFile diretorio & "\" & Arq.Name & ", true

 

[*]Next

 

[*]

 

[*]%>

 

[*]</html>

 

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

Bom para excluir os arquivos pode usar assim...ele apaga todos os arquivos na pasta definida na variavel diretorio..

 

 

ASP

[*]<html><br /><head><br /><title></title><br /><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><br /></head><br /><br /><body><br /><%<br /><br />Set FSO= Server.CreateObject("Scripting.FileSystemObject")<br />diretorio= "C:\fotos"<br />Set Pasta = FSO.GetFolder(diretorio)<br /><br />For Each Arq in Pasta.Files<br />FSO.DeleteFile diretorio & "\" & Arq.Name & ", true<br />Next<br /><br />%><br /></html>

 

 

T+

<{POST_SNAPBACK}>

Generation

 

Mas eu só posso apagar os que estiverem sendo informados no banco de dados.

Não posso apagar todos os arquivos da pasta.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Assim...

 

ASP

[*]<%

 

[*]Set FSO= Server.CreateObject("Scripting.FileSystemObject")

 

[*]diretorio= "C:\fotos"

 

[*]Set Pasta = FSO.GetFolder(diretorio)

 

[*]

 

[*]Do While not rs.eof

 

[*]

 

[*]FSO.DeleteFile diretorio & "\" & rs("CAMPOCOMONOMEDAIMAGEM") & ", true

 

[*]

 

[*]rs.movenext 

 

[*]loop 

 

[*]%>

 

t+

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

To fazendo primeiro o que deleta um arquivo só.

 

e ta dando esse erro aqui de caminho nao encontrado.

 

 

Microsoft VBScript runtime error '800a004c' Path not found /multilabor/admin/imgeventosexc.asp, line 20

 

oque esta errado aqui?

 

<!--#include file="conexao.asp"--><!--#include file="../espiao.asp"--><%Session.LCID = 1046%><%Dim Codigo,Del,diretorio,SQL,TB,TB2,BCCodigo = request.QueryString("Cod")Codigo2 = request.QueryString("Cod2")AbreBanco'Aqui começa o select para poder pegar o nome do arquivo que vai ser apagado diretório UPLOADSQL = "Select * from ImagemEventos where CodigoImagem =" &CodigoSet TB2 = BC.Execute(SQL)'Aqui apaga o Arquivo do Diretório UPLOADSet FSO= Server.CreateObject("Scripting.FileSystemObject")diretorio= "Admin/Upload"Set Pasta = FSO.GetFolder(diretorio)FSO.DeleteFile diretorio & "/" & TB2("Imagem") & true'Aqui deleta do Banco de Dados o Registro.Del = "Delete * from ImagemEventos where CodigoImagem =" &CodigoSet TB = BC.Execute(Del)FechaBancoSet TB = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Voce terá que entrar em contato com o seu server para ver o caminho do seu site..e substituir na linha abaixo...ou se for no IIS pode fazer o mesmo..

 

ASP

[*]diretorio= "C:\Endereco_da_pasta"

 

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se o caminho relativo for mesmoAdmin/Uploadcomo você colocoubasta usar server.Mappath("Admin/Upload")no lugar que funfa

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

se o caminho relativo for mesmo

 

Admin/Upload

como você colocou

 

basta usar

 

server.Mappath("Admin/Upload")

 

no lugar que funfa

<{POST_SNAPBACK}>

Mario,

 

Esta aparecendo "File Not Found"

 

O caminho aparece como "c:\..."

 

Porem o Servidor esta pelo que sei aqui é "G:"

 

OQue faço?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Então vai ficar difícil de ajudar, porque, pode ter certeza que pelo erro, o caminho está errado.

você olhou diretorio por diretorio e caiu na pasta dos arquivos??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

com o esquema do server.mappath() você tem q prestar atencao com as "/" "\"  e o nome das pastas tem que estar digitado corretamente.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

mesmo sem server.mappath() tem que prestar atenção senão não funfa...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

te mandei uma MP se der responde...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito