Un compteur dans un fichier

Soyez le premier à donner votre avis sur cette source.

Vue 9 673 fois - Téléchargée 591 fois

Description

Comment puis créer un Compteur en Utilisant un Fichier ?

Utilisez ce code dan Votre Form_Load par exemple :

Source / Exemple :


Private Sub Form_Load()
 ' Les lignes suivantes sont le compteur d'utilisation</font>
Dim Compteur As Integer
    
    On Error Resume Next
    
    Open "c:\nom du fichier" For Input As #1
    Input #1, Compteur
    Close #1
    
    Compteur = Compteur + 1
    
    Open "c:\nom du fichier" For Output As #1
    Print #1, Compteur
    Close
    
  If Compteur >= 10 Then End  'si le nbre d'éxécutions est > à 10 le prog stoppe.</font>

' Seul inconvénient: il faut connaitre l'emplacement du répertoire où
l'on veut créer le fichier.Le mieux serait de créer une entrée 
dans la base de registre.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.