Ciao
Con questa sub vorrei dare la possibilità di usare uno dei 5 Agent proposti, però devo sapere se è installato.
La sub funziona, ma il programma si arresta chiedendo all'utente il permesso di agire.
Dato che non devo toccare niente, non potrei vedere se il file esiste senza chiedere il permesso?

Sub CambiaAgent(ag)
indirizzofile = "c:\windows\msagent\chars\"
Set fso = CreateObject("Scripting.FileSystemObject")
Select case ag
case 1 nomeagent = "Merlin.acs"
case 2 nomeagent = "Genie.acs"
case 3 nomeagent = "Robby.acs"
case 4 nomeagent = "Peedy.acs"
case 5 nomeagent = "Audie.acs"
End select
if Not fso.FileExists(indirizzofile & nomeagent) then exit sub
' istruzioni istruzioni
End sub

rudyF