none
Criar um Script em Visual Basic para deletar arquivos por data RRS feed

  • Pergunta

  • Eu tenho um script mais ou menos pronto:

    Dim fso, f, f1, fc

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\Program Files\Unisys\Enterprise Output Manager\Mantemarquivo")
    Set fc = f.Files
    For Each f1 in fc
    If DateDiff("d", f1.DateLastModified, Now) > 90 Then
    f1.Delete
    End If
    Next

    Mas também preciso criar uma variável para para deletar arquivos que tem permissão de READONLY. Que quando existi um arquivo com proteção de ReadOnly na pasta o script não funciona, alguém poderia me ajudar com esse problema?


    sexta-feira, 1 de abril de 2011 14:23

Respostas