Single Post - Autorun :: Total Commander

Hidden text

Code:

#Requires AutoHotkey v2.0

/**
* Надежно удаляет файл и ждет, пока его имя полностью освободится в системе.
* @param {String} filePath - Полный или относительный путь к файлу.
* @param {Integer} maxAttempts - Максимальное количество попыток ожидания (по умолчанию 100).
* @returns {Boolean} - true, если файл успешно и окончательно удален; false, если произошла ошибка или вышло время.
*/
ForceDeleteAndVerify(filePath, maxAttempts := 100) {
; 1. Проверяем, существует ли файл вообще
if !FileExist(filePath) {
return true
}

; 2. Пытаемся удалить файл средствами AHK (внутри вызывается DeleteFileW)
try {
FileDelete(filePath)
} catch Error as err {
; Если ошибка "Файл не найден" (код 2), значит файл уже удален
if (err.Extra == 2) {
return true
}
return false ; Другая ошибка (например, Access Denied / код 5)
}

; 3. Цикл ожидания, пока файл физически исчезнет из файловой системы
attempts := 0
while (attempts < maxAttempts) {
; Вызываем GetFileAttributesW через DllCall
; INVALID_FILE_ATTRIBUTES равен 0xFFFFFFFF (или -1 в 32-битном знаковом представлении)
attr := DllCall("Kernel32.dll\GetFileAttributesW", "Str", filePath, "UInt")

if (attr == 0xFFFFFFFF) {
lastError := DllCall("Kernel32.dll\GetLastError", "UInt")
; ERROR_FILE_NOT_FOUND = 2, ERROR_PATH_NOT_FOUND = 3
if (lastError == 2 || lastError == 3) {
return true ; Удаление наконец-то полностью завершено!
}
}

; Если файл все еще заблокирован в состоянии Pending Delete, ждем 10 мс
Sleep(10)
attempts++
}

return false ; Файл так и не исчез за отведенное время
}

; === ПРИМЕР ИСПОЛЬЗОВАНИЯ ===

targetFile := "C:\path\to\your\file.txt" ; Укажите свой путь к файлу

if ForceDeleteAndVerify(targetFile) {
MsgBox("Файл успешно и гарантированно удален! Теперь можно создавать новый с тем же именем.")
; Здесь можно безопасно делать FileAppend или FileOpen с тем же именем
} else {
MsgBox("Не удалось окончательно удалить файл (таймаут или ошибка доступа).")
}