VBS: Обход удаления используемых файлов

[Lnduk]

В общем проблема следующая: есть момент в скрипте, который удаляет файлы и подпапки из заданной директории. Однако в ней могут находиться файлы, которые используются/открыты в настоящее время. Нужно, чтобы удалились только неиспользуемые, а блокируемые/используемые файлы он оставил.
Я новичок в VBS, поэтому использовал следующую конструкцию:

Код: Выделить всё

'uProf - заданная папка в которой необходимо произвести такую выборочную зачистку
If oFSO.FolderExists(uProf) = true then
   oFSO.DeleteFolder uProf & "\*", 0
   oFSO.DeleteFile uProf & "\*", 0
end if


Однако при нахождении используемого файла - выдается ошибка "разрешение отклонено". Как лучше сделать? Можно конечно прописать On Error Resume Next ... , но может есть изящнее варианты?

[Roman Koff]

On Error Resume Next - это какраз правильное решение.
ASP имеет мало чего общего с VBS. попроси модератора, чтобы тебя перенесли в раздел VBA, к примеру ...

[Денис]

попроси модератора, чтобы тебя перенесли в раздел VBA, к примеру ...

Он всё правильно сделал. Скрипты, ASP... Всё правильно, да. И насчет On Error тоже правильно. Да.

[Lnduk]

Всем спасибо. Сделаю через ON ERROR.

[Antonariy]

ASP имеет мало чего общего с VBS. попроси модератора, чтобы тебя перенесли в раздел VBA, к примеру ...

ASP чуть менее, чем наполовину состоит из стандартного виндового скриптового движка, который поддерживает как VBS так и JS. На остальную половину — из IIS.

[Денис]

ASP чуть менее, чем наполовину состоит из стандартного виндового скриптового движка

Я бы сказал, чуть менее, чем полностью. Ну или хотя бы чуть более, чем наполовину.

[Roman Koff]

Загнобили ... понял что лох ... Плохо подпись к форуму прочитал ...

[Lnduk]

блин, есть проблема, написал следующее:

Код: Выделить всё

IF oFSO.FolderExists(arrTMPflds(i)) = true then
   oFSO.DeleteFolder arrTMPflds(i) & "\*", 0
   Set oFolder=oFSO.GetFolder(arrTMPflds(i))
   Set oFiles=oFolder.Files
   For Each oFile In oFiles
       On Error Resume Next
       oFSO.DeleteFile arrTMPflds(i) & "\" & oFile.Name, 0
   Next
END IF


Все вроде работает, однако появилось 2 момента:
1.

Код: Выделить всё

oFSO.DeleteFolder arrTMPflds(i) & "\*", 0

- удаляет не полностью, если в подпапках имеются используемые файлы - остается вся папка, плюс к этому далеко не все папки удаляются хотя там все хорошо... Почему?
2.

Код: Выделить всё

oFSO.DeleteFile arrTMPflds(i) & "\" & oFile.Name, 0

- тоже удаляются не все файлы, хотя не используются и все разрешения есть (аттрибуты чистые).

[Stinger]

А зачем изобретать какие то скрипты, ведь в диспетчере задач можно "приостановить процесс" и дальше все на свое усмотрение. Или я что то не то говорю?