apagar arquivo servidor

[brunogatti 0]

Galera,preciso excluir um arquivo salvo no servidor...tenho o código abaixo mas não esta funcionando. Não dá mensagem de erro e também não exclui o arquivo...tem algo de errado ai<%...Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSourceset arquivo=conn.execute("select caminho from Normas where id="&request.querystring("id")&"")Function DeletarArquivo(arquivo) Dim fsSet fs = Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists("C:\pasta\"&Arquivo) thenfs.DeleteFile("C:\pasta\"&Arquivo) end if set fs = nothing End Function...%>

[Ratu 0]

ele simplesmente naum esta encontrando o arquivo, você esta fazendo uma verificacao antes de deleta-lo, se achar ele deleta, se naum achar naum faz nada !! tire o if que você vai ver que dará erro ! ae você ve o caminho certinho ae !

[brunogatti 0]

tirei o If e continua não dando erro e nem apagando o arquivo....valeu!

[arr 0]

Onde você está chamando a função?

[XuU 0]

como o arr disse, tente:

 

<%

...

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DataSource

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

 

Function DeletarArquivo(arquivo)

Dim fs

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

if fs.FileExists("C:\pasta\"&Arquivo) then

fs.DeleteFile("C:\pasta\"&Arquivo)

end if

set fs = nothing

End Function

 

DeletarArquivo(arquivo)

 

...

%>

[brunogatti 0]

chamei a função...agora esta dando erro..Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis /Forms/normas/apagarnorma.asp, line 18 18 - fs.DeleteFile("C:\Inetpub\wwwroot\KPMG\Forms\normas\"&Arquivo)

[arr 0]

Verifique se o nome do arquivo está correto:Response.Write("C:\Inetpub\wwwroot\KPMG\Forms\normas\"&Arquivo)Response.End

[brunogatti 0]

cnpath="DBQ=" & Server.MapPath("normas.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSourcearquivo = Conn.execute("select caminho from Normas where id="&request.querystring("id")&"")Response.Write arquivoResponse.End...%>criei o response para mostrar o registro no banco mas esta dando o seguinte erro:Objeto Response erro 'ASP 0185 : 8002000e' Propriedade padrão ausente /Forms/normas/apagarnorma.asp, line 0 Não foi encontrada uma propriedade padrão do objeto.

[dark0 0]

Olá amigo

 

tente mostrar assim:

 

<% url_conexao = Server.MapPath("normas.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao  sql = "select caminho from Normas where id="&request.querystring("id") set rs = conexao.execute(sql)  response.write rs("caminho")%>

[brunogatti 0]

agora deu certo!ele mostrou o caminho do arquivo..agora preciso q esse arquivo seja deletado...tenho o seguinte codigo:arquivo = rs("caminho")Function DeletarArquivo(arquivo) Dim fsSet fs = Server.CreateObject("Scripting.FileSystemObject") fs.DeleteFile(arquivo)set fs = nothing End Functionmas não esta funcionando...gostaria da ajuda de vcs mais uma vez..:PObrigado!

[dark0 0]

amigo.. acabei de pegar seu codigo e rodar aqui e funcionou..

 

<%arquivo = "C:\Inetpub\wwwroot\a.txt"Dim fsSet fs = Server.CreateObject("Scripting.FileSystemObject")fs.DeleteFile(arquivo)set fs = nothing%>

Aliás.. ele deu permissao negada.. mas eu arrumei a permissao do arquivo, e ele deletou sem problemas..

[brunogatti 0]

consegui rodar tbm! Obrigado a todos!retirei a linha q criava funcao DeletaArquivo..o codigo ficou assim para quem tiver a mesma dúvida:url_conexao = Server.MapPath("normas.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexaosql = "select caminho from Normas where id="&request.querystring("id")set rs = conexao.execute(sql)arquivo = rs("caminho")Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.DeleteFile ("C:\"&arquivo), Trueset fs = nothing sql = "delete * from Normas where id="& Request.querystring("id")conexao.execute(sql)Response.Redirect"admin.asp"