При работе программы во избежание разных казусов желательно убедиться, что файл не занят другим приложением.
Если что то "стандартное" для этого?
Мне пока только пришла мысль проверять переименованием, но есть подозрение, что я чешу левой рукой правое ухо
- Код: Выделить всё
code = MoveFile(PathToFile + FileName, PathToFile + "~" + FileName)
If code = 0 Then
MsgBox "Файл занят другим приложением", vbCritical, "Аварийное завершение"
Exit Sub
Else
MoveFile PathToFile + "~" + FileName, PathToFile + FileName
End If
Заранее благодарен.
