1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Public Class Form1
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'On incrémente le nombre d'exécution dans la variable paramètre de l'application.
My.Settings.NombreExecution += 1
My.Settings.Save()
'On affiche combien de fois le programme a été exécuté.
MsgBox(My.Settings.NombreExecution.ToString)
'Tu peux tout aussi bien placer ta routine de vérification et/ou de création de répertoire ici
'........
'..........
'............
End Sub
End Class |