none
Exclusão de arquivos FSO RRS feed

  • Pergunta

  • Olá pessal, estou tentando excluir os arquivos do servidor utilizando FSO, mas os arquivos nao sao deletados, ja verifiquei as permissões, são tres arquivos jpg a serem excluidos a cada execução do codigo.

     segue o codigo:

    <%
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    
    
    CAMINHO = Server.MapPath("imgs_quadros/")
    
    If Fso.FileExists(CAMINHO&FOTO1) Then
      Fso.DeleteFileS CAMINHO&FOTO1
    End If
    
    If Fso.FileExists(CAMINHO&FOTO2) Then
      Fso.DeleteFileS CAMINHO&FOTO2
    End If
    If Fso.FileExists(CAMINHO&FOTO3) Then
      Fso.DeleteFileS CAMINHO&FOTO3
    End If
    
    Set Fso = Nothing 
    %>
    o que tem de errado?
    desde já agradeço a atenção de todos
    ate mais.
    ANDRÉ GUSTAVO
    quinta-feira, 2 de julho de 2009 05:05

Todas as Respostas

  • Não volta nenhum erro pra você ?
    E essa variavel FOTO1 que você concatena com o CAMINHO, está ok ?

    Use Response.Write e Response.End para "Debugar" a aplicação e ver se está trazendo os nomes dos arquivos corretos

    A sintaxe também me parece um pouco errada, o Metodo é DeleteFile

    Um exemplo simples:

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

    '-- Cria arquivo para deletar
    FSO.CreateTextFile("c:\delete.txt",True)

    '-- Se arquivo existe, deleta
    if FSO.FileExists("c:\delete.txt") then
       FSO.DeleteFile("c:\delete.txt")
    end if

    '-- Mata instancia do FileSystemObject
    set FSO = nothing


    []s
    Marcelo Ramos
    http://www.marceloramos.net/Blog

     

     


    Marcelo Ramos
    sábado, 4 de julho de 2009 01:28
  • Tente dessa maneira:

    CAMINHO = Server.MapPath("/imgs_quadros/") &"\" If Fso.FileExists(CAMINHO&FOTO1) Then Fso.DeleteFileS CAMINHO&FOTO1 End If



     


    Edilson Moura
    terça-feira, 7 de julho de 2009 10:40