Узнать, что файл используется

[Alexanbar]

Задача такова. Создаю список файлов на удаление для ShFileoperation.

Если файл используется, выходит окно диалога, и действие ShFileoperation прекращается, несмотря на то, что другие файлы можно удалить без проблем.

Напрашивается такой вариант решения.
При создании списка заранее не помещать файл, который используется. Вот только как это узнать? ВЕдь его атрибуты, например, ничем не отличаются от атрибутов соседнего файла, который никем не используется. Чего у него ДРУГОЕ? Как это распознать?

[Хакер]

Есть в принципе разница между файлами открытыми с номером 1-511 и 512 - ...

Думаю, это можно как то использовать.

Ну или же можно ковырять хэндлы и смотреть, кто кого использует.

ЗЫ. Писал особенно не думая, не пинайте...

[ANDLL]

Alexanbar
Ты ведь вкурсе, что после того как ты сформируеш список, и начнеш SHFileOperation ктото может занять файл и все равно будет "действие ShFileoperation прекращается"

[Alexanbar]

Дело в следующем. Очень часто приходится чистить временные файлы в папках Temp. Всего 2-3 из них - заняты. Однако, из за них приходится операцию повторять, снимая с них выделение вручную.

[Kovu]

А может просто батник с

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

del *.*


?

[Alexanbar]

А может просто батник с

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

del *.*


?

НЕт. Во-первых, удаляется не всё подряд, а выделенное вручную
Во-вторых, нужен прогресс операции.
Всё это есть в Shfileoperation.
Одно плохо. ПРи малейшей ошибке (например, если файл нельзя удалить) операция прекращается, а я хочу, чтобы продолжалась, и удалялось то, что можно удалить. Естественно, с выводом сообщения, что некоторые файлы удалить не удалось.

[NashRus]

значит руками, т.к. Shfileoperation не поддерживает требуемой функциональности ?

[Alexanbar]

Если заранее узнать, что файл используется, можно оставить и SHFileoperation. Только кто бы надоумил, как.

[Хакер]

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

Function IsFileUsed(ByVal sFileName As string) as boolean
On error Goto Eh
r$ = Hex(Timer*1000) + Oct(int(rnd * 20000))
Name sFileName As sFileName + r$
Name sFileName + r$ as sFileName
EH:
IsFileUsed= ( Err.Number = 70 )
End Function


но не думаю что это удачное решение. Тогда уж проще удалять самому.