[vbs] Sapere se un file esiste sull'Hard Disk

[rudyF]

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

[cavicchiandrea]

Originariamente inviato da rudyF
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

Ti giro la domanda tu saresti contento che qualche webmaster scorretto (che non è il tuo caso come tutti quelli che fanno queste domande) esegua qualcosa a tua insaputa?
Qualora anche esista tale possibilita credo che nessuno ti aiutera a fare quello che chiedi.

Sei sicuro che sia javascript :master: a me sembra + asp

[rudyF]

Ciao
Pensavo che un'istruzione tipo "read" non fosse così invadente come una tipo "write".
Allora anche determinare quale browser e quale risoluzione abbia il nostro visitatore è scorretto.

Comunque cambio i termini del problema in questo modo:

Sub CambiaAgent(ag)
Select case ag
case 1 nomeagent = "Merlin"
case 2 nomeagent = "Genie"
case 3 nomeagent = "Robby"
case 4 nomeagent = "Peedy"
case 5 nomeagent = "Audie"
End select
nomeagentFile = nomeagent & ".acs"

Spk.Connected = True ' Spk è l'oggetto
Spk.Characters.Load nomeagent, nomeagentFile
Set Maestro = Spk.Characters(nomeagent)

' istruzioni istruzioni
End sub

Ordino al programma di caricare l'Agent, qualunque esso sia.
Chiaramente se non c'è si genera un errore!

Come faccio ad intercettare l'errore senza che il programma si blocchi? (un'istruzione tipo: "onError exit sub"

P.S. il linguaggio è VBScript
rudyF

[cavicchiandrea]

Originariamente inviato da rudyF
Ciao
Pensavo che un'istruzione tipo "read" non fosse così invadente come una tipo "write".
Allora anche determinare quale browser e quale risoluzione abbia il nostro visitatore è scorretto.

Se cosi fosse il browser non ti chiederebbe la conferma di eseguire..... Operazione che di fatti non accade con la risoluzione o il browser in uso

Comunque cambio i termini del problema in questo modo:

Sub CambiaAgent(ag)
Select case ag
case 1 nomeagent = "Merlin"
case 2 nomeagent = "Genie"
case 3 nomeagent = "Robby"
case 4 nomeagent = "Peedy"
case 5 nomeagent = "Audie"
End select
nomeagentFile = nomeagent & ".acs"

Spk.Connected = True ' Spk è l'oggetto
Spk.Characters.Load nomeagent, nomeagentFile
Set Maestro = Spk.Characters(nomeagent)

' istruzioni istruzioni
End sub

Ordino al programma di caricare l'Agent, qualunque esso sia.
Chiaramente se non c'è si genera un errore!

Come faccio ad intercettare l'errore senza che il programma si blocchi? (un'istruzione tipo: "onError exit sub"

P.S. il linguaggio è VBScript
rudyF

Per questo non so come aiutarti non conosco VBScritp latoclient(essendo prioritario Microsoft)

[rudyF]

Nessuno sa come si intercetta un errore?

[Xinod]

neanch' io uso vbs
ti servirebbe la versione vbs della coppia di istruzioni try/catch...
cmq x rispondere alla tua domanda:
che sia questo?
http://www.devguru.com/Technologies/...f/onerror.html

[rudyF]

Grazie, ora provo.
rudyF

[rudyF]

Perfetto!

Spk.Connected = True ' Spk è l'oggetto
' se la riga dopo "On Error" dà errore, la salta
On Error Resume Next
Spk.Characters.Load nomeagent, nomeagentFile
' in pratica se l'Agent non c'è salta l'istruzione
On Error Resume Next
Set Maestro = Spk.Characters(nomeagent)

In questo modo non devo andare a curiosare nell'Hard Disk
Grazie rudyF