apagar arquivo do servidor

[brunogatti 0]

Não consigo apagar arquivo enviado para o servidor. Parou de funcionar após trocar o bd de access para oracle..não acho q tenha a ver mas...Tenho o seguinte código<%On Error resume Next 'recupero o caminho do arquivoset rs = conn.execute("select * from Normas where id="&request.querystring("id")&"")arquivo = rs("caminho")'testeResponse.Write "c:\documentos\"&arquivo'apago o arquivoSet fs = Server.CreateObject("Scripting.FileSystemObject") fs.DeleteFile("c:\documentos\"&arquivo)set fs = nothing 'apago a norma do banco'SQL = "delete from normas where id ="&Request.querystring("id")'conn.execute (SQL)'Response.Redirect"admin.asp"If Err.Number <> 0 ThenResponse.Write "Numero do erro: "& Err.Number &"<BR>"Response.Write "Descrição: "& Err.DescriptionEnd If%>Quando dou um print do caminho recuperado do banco, vem certinho!!Dá o seguinte erro:Numero do erro: 53Descrição: Arquivo não encontrado Algum luz?

[<%Rafael%> 0]

Vê se vai...

<%On Error Resume Next'Recuperando caminho do arquivoSet rs = conn.execute("SELECT * FROM Normas WHERE id=" & Request.QueryString("id"))If Not rs.Eof Then arquivo = rs("caminho")End If'Apagando o arquivoSet Fso = Server.CreateObject("Scripting.FileSystemObject")'Verifica se o arquivo existe, para ai então excluir...If Fso.FileExists(arquivo) Then Fso.DeleteFile("c:\documentos\" & arquivo)End OfSet Fso = Nothing'Apagando a norma do banco...conn.Execute("DELETE * FROM Normas WHERE id=" & Request.QueryString("id"))Response.Redirect("admin.asp")If Err.Number <> 0 Then Response.Write("Numero do erro: "& Err.Number &"<br />") Response.Write("Descrição: "& Err.Description)End If %>

Se derpau, poste ai.. a gente vê o que pode ser..Abraços!

[brunogatti 0]

fiz as alterações e agora não esta dando absolutamente nada...nao da erro, nao paga o arquivo, nao apaga a norma...simplesmente retorna para a pagina admin.asp...obrigado pela ajuda!!

[Mário Monteiro 179]

tira ou comenta o on erro resume next para a aparecer o erro

[dark0 0]

<%

'On Error resume Next

 

'recupero o caminho do arquivo

set rs = conn.execute("select * from Normas where id="&request.querystring("id")&"")

arquivo = rs("caminho")

 

'teste

Response.Write "c:\documentos\"&arquivo

 

'apago o arquivo

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

fs.DeleteFile("c:\documentos\"&arquivo)

set fs = nothing

 

'apago a norma do banco

'SQL = "delete from normas where id ="&Request.querystring("id")

'conn.execute (SQL)

 

'Response.Redirect"admin.asp"

 

'If Err.Number <> 0 Then

'Response.Write "Numero do erro: "& Err.Number &"<BR>"

'Response.Write "Descrição: "& Err.Description

'End If

%>

O que a variavel em vermelho possui como valor?

 

tenho uma leve impressao, que vamos nos dar de cara com erro de permissao..

[brunogatti 0]

rs("caminho") esta recebendo o nome do arquivo....ja fiz teste imprimindo na tela o conteúdo da variável e esta beleza...quanto a permissão, acho q não deve ser o problema...no começo deu esse erro porém consegui resolver dando permissão para o usuário do IIS.mesmo alterando o código continua dando erro de "arquivo não encontrado" aqui na minha máquina e no cliente...isso começou a acontecer depois que troquei o banco para oracle...sera q tem algo a ver??obrigado!!

[<%Rafael%> 0]

Só uma coisa..... tem certeza que os arquivos estão na pasta "c:\documentos\"???Vai que isso passou em branco.. e as imagens estejam no wwwroot, etc??Abraços!

[dark0 0]

Só uma coisa..... tem certeza que os arquivos estão na pasta "c:\documentos\"???Vai que isso passou em branco.. e as imagens estejam no wwwroot, etc??Abraços!

afff...se for isso ..sem comments http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[brunogatti 0]

tenho lógico...certeza absoluta

[<%Rafael%> 0]

Mas tá estranho isso.. tem duas coisas ai que iriam previnir de dar erro...o "On Error Resume Next".. e o If Fso.FileExists.. que só iria pegar o arquivo se o mesmo existisse...Vou fazer um teste depois em casa dai posto aqui!Abraços!