none
Erro ao rodar script que apaga arquivos .tmp RRS feed

  • Pergunta

  • Pessoal, 

    Estou utilizando o script abaixo para apagar arquivos .txt do meu servidor porém tenho pastas de aplicação neste servidor, e onde mais se concentram os arquivos .txt são nas pastas de log. Muitas vezes a aplicação utiliza alguns arquivos .txt da pasta log, e quando inicio o script ele começa a apagar arquivos que não estão sendo utilizados quando ele tenta apagar um arquivo que esta em uso o script para de apagar. 

    Como posso fazer o script pular os arquivos que estão em uso e continuar apagando os outros arquivos, alguém poderia me ajudar?

    SCRIPT:

    strPasta="D:\"

    set FSo = CreateObject("Scripting.FileSystemObject")

    Apagar_Arquivos(strPasta)

     Sub Apagar_Arquivos(Pasta)

     set folder = FSO.getFolder (Pasta)
      if folder.Subfolders.count > 0 then
      for each SubFolder in folder.Subfolders
       Apagar_Arquivos SubFolder
      next
     end if


     for each file in folder.files
     set objFile = FSO.GetFile(file)
     if FSO.GetExtensionName(objFile) = "txt" or FSO.GetExtensionName(objFile) = "mp3" then
       File.delete
     end if
     next

    end sub

    sexta-feira, 18 de maio de 2012 18:58

Respostas