DETECT : PROGRAMME MAL ARRETER

Private Sub Test()
Dim MonFichier As String
MonFichier = "c:\t.txt"

If Dir(MonFichier, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
'Le fichier n'existe pas, donc, le programme à était correctement arreter
Open "c:\t.txt" For Output As 1
Print #1, "Ce que vous voulez"
Close 1
Else
'Le fichier existe, donc, le programme à était mal arreter
MsgBox "Le programme à mal était arreter"
End If
End Sub
Private Sub Command1_Click()
Kill "c:\t.txt"
Unload Me
End Sub
Private Sub Form_Load()
Call Test
End Sub 

Télécharger le zip