Trovato.
Ecco il codice:
On Error Goto FileTempAperto \' gestione errore
\'qui inserire il codice che mi interessa
FileTempAperto: \' richiamo della procedura se va in errore
\'controllo l\'errore (il numero mi dice che è aperto word oppure ci sono dei file temp di word appesi a qualche processo
If Cstr(Err())= "4005" Then
\'Chiedo all\' utente se vuole che gli killo tutti i processi di word
If Messagebox ("Si desidera ........bla bla bla bla.....?",4+32,"Attenzione")= 6 Then
\'eseguo tramite la shell il comando dos interessato (taskkill ammazza il processo /F forza, /IM dice che sto dando il nome del processo da killare e non il PID -nel mio caso word ma potrebbe essere notepad.exe o qualsiasi altro programma- /T uccide il processo padre e tutti i figli il ",1" è un parametro della shell che gli dice di gestire il focus normalmente
taskId% = Shell(|taskkill /F /IM winword.exe /T|,1)
\'Se invece l\'utente non vuole allora lo faccio uscire
Else
Exit Function
End If
End If
\' torna a processare il codice prima dell\'errore
Resume Next
|