Удалить процесс при закрытии книги, с проверкой (vba excel 2003)

Posted by obzor under VBA

На листе книги (excel 2003) есть кнопка с макросом, код которого приведен ниже (vba excel 2003). После щелчка по кнопке происходит копирование файла «форма.exe» с сервера во временную папку, после чего файл «форма.exe» запускается из этой временной папки.
Подскажите пожалуйста код (vba excel 2003), чтобы при закрытии книги, файл «форма.exe» из временной папки удалялся, если процесс «форма.exe» не выполняется (дело в том что у меня сейчас можно закрыть книгу, но приложение «форма.exe» может выполняться, т.е. еще не закрыто пользователем).

Sub Копировать(Optional x As Boolean)

Dim sFileName As String, sNewFileName As String
sFileName = "\\server\форма.exe"
sNewFileName = Environ("temp") & "\" & "форма.exe"
FileCopy sFileName, sNewFileName

Dim MyPath
MyPath = Shell(Environ("temp") & "\" & "форма.exe " & ThisWorkbook.FullName, 1)

End Sub

EducatedFool

Так что надо?
Процесс завершить?

Если только удалить файл, если процесс завершен, — то всё проще некуда
(код — в модуль книги)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next: Kill Environ("temp") & "\" & "Форма.exe"
End Sub

(файл не удалится при запущенном процессе)

doober

Если процесс «форма.exe» при закрытии книги еще выполняется, то отследить (что он запущен) можно так:

Function Cont_Proc() As Boolean
Dim Process As Object
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process") 
If Process.Caption Like "Форма*" Then Cont_Proc = True:Exit For
 Next
End Function

тема на форуме

Случайные статьи

• Заполнить текстовый файл случайными числами
• Как получить доступ к методам объекта, не указывая его имя?
• Алгоритм поиска картики в картинке
• Передача значения переменной из одной формы в другую
• Определние локального и внутреннего IP
• PIC12F629 — питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит
• Проверка тега noindex
• Функция с переменным количеством параметров
• Edit и клавиша Tab — Delphi
• Динамическое создание StringGird’ов и работа с ними