...podrias intentar eliminar el archivo, claro que haces una copia de respaldo ...
y se da error quiere decir que el archivo se esta ejecutando, de lo contrario como lo has eliminado, con la copia de seguridad lo restableces ...
Command1 --> para verificar
Text1.Text --> ruta del programa a verificar
Private Sub Command1_Click()
On Error GoTo Er
FileCopy Text1.Text, "C:\temp.exe"
Kill Text1.Text
FileCopy "C:\temp.exe", Text1.Text
Kill "C:\temp.exe"
MsgBox "El programa No se esta ejecutando"
Exit Sub
Er:
MsgBox "El programa Si se esta ejecutando"
Exit Sub
End Sub
no tube rtiempo de probarlo, pero si es ejecutables lo hace bien, de lo contrario tendrias que usando cadenas recortar la extensión para reconocer el archivo ...
de aqui mas de un rato que regreso de la U, te lo dejo completo ...
suerte.
PD: no es 100% fiable, xq puede q el programa este siendo usado por otra aplicacion y no necesariamente se este ejecutando ...
o que el archivo no se encuentre ... alli tendrias que trabajar con el tipo de error que devuelve.
Pero es una alternativa sencilla.
Autor
En línea
