[megaloman]

Код:

NameExe = "notepad.exe"             'Здесь прописать имя процесса
NameDel = "Какая то папка или файл" 'Здесь прописать имя папки или файла
WaitMsec = 5000                     'Здесь прописать периодичность опроса наличия процесса милисек.

Do
    WScript.Sleep WaitMsec
    Set WMI = GetObject("winMgmts:").ExecQuery("SELECT * From Win32_Process WHERE Name='" + NameExe + "'")
    If WMI.Count = 0 Then
        FScript = WScript.ScriptFullName
        With CreateObject("Scripting.FileSystemObject")
            PNameDel = .GetParentFolderName(FScript) + "\" + NameDel
            If .FolderExists(PNameDel) Then .DeleteFolder PNameDel, True
            If .FileExists(PNameDel) Then .DeleteFile PNameDel, True
        End With
        Exit Do
    End If
Loop

Сохранить в кодировке 1251 в .vbs файл, например, kuku.vbs
Запускать как wscript.exe kuku.vbs
Чтобы не грузился зря процессор, периодичность опроса делайте разумной, не слишком маленькой