Breaking News: Grepper is joining You.com. Read the official announcement!

VBA - Close notepad

Adorable Albatross answered on June 15, 2022 Popularity 1/10 Helpfulness 1/10

answer VBA - Close notepad

VBA - Close notepad

Comment

Sub test()
Dim StrPath As String
StrPath = "C:\New folder\Test.txt" ' Please type FullName
Call Close_Notepad_ByName(StrPath)
End Sub
Public Sub Close_Notepad_ByName(NtpPath As String)
Dim oServ As Object
Dim cProc As Object
Dim oProc As Object
StrProcessName = "Notepad.exe"
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("select * from win32_process")

For Each oProc In cProc
    If InStr(1, oProc.Name, StrProcessName, vbTextCompare) <> 0 Then' check if Notepad
        If InStr(1, oProc.CommandLine, NtpPath, vbTextCompare) <> 0 Then ' check Path
        oProc.Terminate
        End If
    End If
Next
Set oServ = Nothing
Set cProc = Nothing
End Sub

Popularity 1/10 Helpfulness 1/10 Language vb

Source: social.msdn.microsoft.com

Tags: notepad vba

Link to this answer
Share Copy Link