[VB6] Evitare la chiusura del programma

[x69asterix]

ciao a tutti,
dovrei evitare la chiusura del programma con questa condizione, qualcuno mi può aiutare?

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists("a:\lis.txt")) Then
     MsgBox "Attenzione Carmen rimuovere il floppy di sicurezza", vbCritical, "Sicurezza"
     '................... mi manca qualcosa  :dhò: 
     Else
     MsgBox "Il file di Sicurezza non è presente uscita sicura.", vbInformation
     Unload Me
  End If
End Sub

[alka]

E qual è il problema? Non funziona? Non ottieni l'effetto desiderato?

[LMondi]

Ciao x69asterix,
non ho capito bene il codice postato, dato che If (fso.FileExists("a:\lis.txt")) dovrebbe restituire True che non si concilia con
MsgBox "Attenzione Carmen rimuovere il floppy di sicurezza", vbCritical, "Sicurezza"
comunque per interrompere la routine si potrebbe risolve con un semplice Exit sub.

[x69asterix]

Originariamente inviato da alka
E qual è il problema? Non funziona? Non ottieni l'effetto desiderato?

ciao
in effetti non ottengo l' effetto voluto

[x69asterix]

Originariamente inviato da LMondi
Ciao x69asterix,
non ho capito bene il codice postato, dato che If (fso.FileExists("a:\lis.txt")) dovrebbe restituire True che non si concilia con
MsgBox "Attenzione Carmen rimuovere il floppy di sicurezza", vbCritical, "Sicurezza"
comunque per interrompere la routine si potrebbe risolve con un semplice Exit sub.

praticamente faccio una verifica, se il floppy è presente non devo chiudere il programma, o meglio non posso chiudere il programma, quindi per chiudere devo uscire il floppy, avevo provato con exit sub ma mi chiude lo stesso anche se il file esiste nel floppy

[Boolean]

se vuoi annullare la chiusura devi scrivere

Cancel = 1

ovunque ti serva...

Boolean

[x69asterix]

Originariamente inviato da Boolean
se vuoi annullare la chiusura devi scrivere

Cancel = 1

ovunque ti serva...

Boolean

ciao,
grande, adesso il problema è risolto, funziona perfettamente come volevo.
Grazie