none
Не могу удалить файл из скрипта RRS feed

  • Вопрос

  • Проблемма надо взять список файлов сравнить дату модифицирования и не нужное удалить.

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objStartFolder = objFSO.GetFolder("C:\Test")     'подключаюсь к папке
    Set colFiles = objStartFolder.Files                           'получаю список файлов

    For Each objFiles in colFiles                                   'перебираю файлы
    Set f = objFSO.GetFile(objFiles)                              'выбираю файл (можно не указывать)
    s = s & "Created: " & objFiles.DateCreated              'дата создания
    S = s & "Last Accessed: " & objFiles.DateLastAccessed 'дата последнего доступа
    objFSO.deletefile(f)                                                 'и удаляю файл (вот здесь запара)- почему не хочет удалять
    Next
    MsgBox s                                                              'вывожу отчет

    Дак вот на удалении пишет ошибку "Permision denied"

    Что я сделал не правильно, ведь если указать файл то нормально удаляет







    22 февраля 2008 г. 9:52

Ответы

Все ответы