ник: час
Средствами FSO
Public Function FUN_DELETE_FILE_NAME(Patch_File As String) As String
' Удаление файла
Dim fld, F
On Error GoTo FUN_DELETE_FILE_NAME_Error
'-------------------------------------------------------------------------------
If FUN_FILE_YES_NO(Patch_File) = True Then
Set F = FSO.GetFile(Patch_File)
F.Delete
MsgBox "Удалён файл : " & Patch_File
End If
'-------------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_DELETE_FILE_NAME_Error:
MsgBox "Не удалось удалить файл - возможно он не закрыт.... : " & Patch_File, vbCritical
MsgBox "Нажмите кнопку квитанция - закройте файл и повторите операцию удалить квитанцию.", vbCritical
Call Zapis_ERR("процедура->" & "FUN_DELETE_FILE_NAME", Err.Number, Err.Description)
End Function