Spanish [SOLUCIONADO] XLutils/JPOI5 Guardar archivo

Sub ProcessExists(ExeName As String) As Boolean
    Dim Result As ShellSyncResult
    Dim Sh As Shell
    Sh.InitializeDoNotHandleQuotes("", "tasklist", Null)
    Result = Sh.RunSynchronous(5000)
    Return Result.StdOut.ToLowerCase.Contains(ExeName.ToLowerCase)
    
End Sub

Sub ProcessKill(ExeName As String) As Boolean
    Dim Result As ShellSyncResult
    Dim Sh As Shell
    Sh.InitializeDoNotHandleQuotes("", "taskkill", Array As String("/IM", ExeName,"/F"))
    Result = Sh.RunSynchronous(2000)
    Return Result.StdOut.Contains($"${ExeName}"$) And Result.StdOut.Contains("(PID ")
End Sub