Exclusão De Arquivo No Servidor!

[adrianollp]

ae galera.. meu codigo de exclusao de arquivo no servidor teoricamnete tah certo.. mas num exclui o arquivo manja?! tipo.. alguém axa o erro ae?

<!-- #include file="conexao.asp" --> 

<%
menu = Session("menu")
if menu = "excluir_obra" then
   pg = "Lançamento"
   bd = "obra"
end if
%>

<% 
bd = request("bd")

' Cria rs que vai receber pesquisa
Set rsObra = Server.CreateObject("ADODB.Recordset")

For cont = 1 to Cint(Request("num_nomes"))
	ob_id = Cint(Request("nome" & cont))
'----------------------Verifica se estava selecionado--------------------------
	If NOT IsEmpty(ob_id) AND ob_id <> 0 Then

'-----------------------------Deletando o Arquivo---------------------------------
  ' Monta string SQL que vai retornar do bd o nome do arquivo selecionado.
    sql = "SELECT ob_img FROM obra WHERE ob_id = " & ob_id
  'response.Write(sql):response.End()
  ' Executa a consulta e coloca o resultado no recordset
  rsObra.Open sql, conexao, 3, 1 
  
   if not rsObra.EOF then
  	nome_fisico = rsObra("ob_img")
  	caminho_fisico = ("e:\home\wdot\web\fkf\adm\obra\")
  	
  	set fso = Server.CreateObject("Scripting.FileSystemObject")
  	set pasta = fso.getfolder(caminho_fisico)
  	set arquivo_leg = Server.CreateObject("Scripting.FileSystemObject") 
    If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) Then
    	fso.deletefile server.MapPath("obra") & "\" & nome_fisico
    End If
  	set fso = nothing
  	set pasta = nothing
  	set arquivo_leg = nothing

  	'--------------------Deletando do Banco de Dados-------------------
  	sql = "DELETE * FROM obra WHERE ob_id = " & ob_id
  	conexao.execute sql
  end if	
  	set rsDestaque = Server.CreateObject("ADODB.Recordset")
  	sql = "SELECT * FROM destaques WHERE categoria = '" & bd & "' AND id_info	= " & ob_id
  	rsDestaque.open sql, conexao
  	' Se o rs do resultado dessa pesquisa for vazio, significa q o id excluido não era o destaque  
  	if not rsDestaque.EOF then
    sql = "UPDATE destaques SET id_info = 0 WHERE categoria = '" & bd & "'"
    conexao.execute sql
    ' Fazer o update na tabela de destaque, na categoria = bd, com id_info = 0
  	end if	
	rsObra.Close
	End If  
Next

set rsObra = nothing

Response.Redirect("admin.asp?resposta=11")

conexao.close
Set conexao = Nothing
%>

tipo... ele exclui do banco normalmente....

vlwsss galera!!! ^^

Editado Março 30, 2005 por cyberalexxx

[ViniciusJau]

e não dá nenhum erro ?

[adrianollp]

pra ajudar, ele não tah entrano no if que verifica se o rs tah vazio....

" if not rsObra.EOF then" =//

[adrianollp]

não dá nenhum erro não cara!!!

ele exclui.. só que só do servidor!!!! =///

[adrianollp]

opa!!

ele entrou no if!!!

mas num entra nesse:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) Then

fso.deletefile server.MapPath("obra") & "\" & nome_fisico

End If

ele tah ignorando!!!!

[ViniciusJau]

cara tenta usar o botão Editar para não floodear o forum huahuah

seguinte... se ele tá funcionando no servidor e não está funcionando local é alguma configuração do seu iis

dá um look nos topicospendurados, aqui na seção ASP mesmo ali tem bastente coisa ..

posta ai depois

[cyberalexxx]

tenta assim:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) = true Then
fso.deletefile server.MapPath("obra") & "\" & nome_fisico
End If

[adrianollp]

uahuaha

dá proxima eu edito.. malz.... ahuha

mas então.. não funcionou tb!!! =///

e agora?! ó_ò

[cyberalexxx]

faz esse teste e posta o resultado aki:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) = true Then
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "encontrado"
   response.end
   fso.deletefile server.MapPath("obra") & "\" & nome_fisico
else
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "não encontrado"
   response.end
End If

[adrianollp]

vlw pessoal.. já consegui!!!

o que aconteceu era que eu tava passando pro banco não o nome do arquivo... e sim todo o caminho!!!... eu apenas coloquei um "img = upl.Form("imagem").ShortFilename" e ele funcionou!!!

vlw pessoal!! ^^

pode fexar o tópico moderador =D

[cyberalexxx]

OK!!

Qualquer duvida adicional, mande PM para algum moderador que o tópico é reaberto.

[]'s