1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Système
  5. Ajouter des fichiers log dans son application.

Ajouter des fichiers log dans son application.

0/5 (4 avis)

Vue 7 835 fois - Téléchargée 493 fois


Télécharger le projet
Commenter

Description

C'est une class qui permet de gerer des fichiers log dans ses application, elle intergre la lecture des fichiers, la suppression, l'information sur les fichiers, et l'archivage.

Source / Exemple : 


voici un exemple pour l'integrer :

Imports System.IO

Public Class Form1
    Dim IP As String
    Dim log As New Fichier_log.Fichier_log

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim rep
        rep = Me.FolderBrowserDialog1.ShowDialog
        If rep = vbOK Then
            Me.TextBox2.Text = Me.FolderBrowserDialog1.SelectedPath
            log.log("Repertoire de sortie selectionné :" & Me.TextBox1.Text, "log.log")
        Else
            Exit Sub
        End If
    End Sub

Private Sub LireFichierLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LireFichierLogToolStripMenuItem.Click
        log.read("log.log")
    End Sub

    Private Sub EffacerFichierLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EffacerFichierLogToolStripMenuItem.Click
        log.del("log.log")
    End Sub

    Private Sub InformationSurFichierLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformationSurFichierLogToolStripMenuItem.Click
        log.info("log.log")
    End Sub

Conclusion :


C'est ma premiere participation pour ce forum qui ma vraiment aidé dans tout mes projets.
Je precise que je programme juste par passion et ce n'est pas mon job.
merci a tout les gens a qui j'ai piqué des morceau de code pour mes projets....
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
jaf6
Messages postés
4
Date d'inscription
samedi 28 janvier 2006
Statut
Membre
Dernière intervention
27 mai 2008
19 mai 2008 à 21:16
Ok, j'ai bien compris, je ferais plus attention dans l'avenir a bien declarer comme il se dois.

Merci et a bientot
NHenry
Messages postés
14929
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2022
 162
19 mai 2008 à 14:37
Bonjour,

Tu as mis :
Dim creat = File.GetCreationTime("log" & fichier)
Alors que tu aurrais dû mettre :
Dim creat AS DATE = File.GetCreationTime("log" & fichier)

Donc avec "Option Strict" à On, cela te génerais une erreur de compilation.

Bonne continuation.
jaf6
Messages postés
4
Date d'inscription
samedi 28 janvier 2006
Statut
Membre
Dernière intervention
27 mai 2008
19 mai 2008 à 13:47
Salut NHENRY, merci pour ton commentaire.
C'est vrai que j'ai pas l'habitude de commenter mes codes, je vais faire des efforts.
J'utilise souvent try/catch mais la effectivement je l'ai oublié.
Par conter pour la ligne 40 je ne comprend pas l'option Strict a on??
peux tu m'eclairer.

merci a bientot
NHenry
Messages postés
14929
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2022
 162
19 mai 2008 à 09:10
Bonjour,

Pour faciliter la réutilisation de ton code, aère-le un peu. (Notamment mettre une ligne vide entre les membres).

Ensuite, ajoute quelques commentaires, avec les 3 ' (apostrophes) ''' cela te génèrera un canevas qui permettra de voir la doc du membre dans l'IntelliSense.

Evite les noms par défauts : "Class1.VB" contient une seule classe nommée "Fichier_Log", pas intuitif.

Ajoutes aussi quelques commentaires sur le fonctionnement du code, qu'il y ait peu de commentaire, mais qu'il y en ait quand même.

Sinon :
Ligne 6 :
Directory.CreateDirectory("log")
Si par malheur, l'utilisateur n'a pas le droit d'ajout dans le dossier, aucune gestion d'erreur est faite. Un petit Try/Catch peut être utile.

Aulieu de
If ...=False Then
Utilises plutôt :
If Not ... Then

Pourquoi ne pas faire une constructeur paramétré pour ne pas avoir à chaque fois à préciser le fichier destinataire, ce serait bcp plus pratique.

Ligne 40, et ailleur dans le code :
Dim creat = File.GetCreationTime("log" & fichier)
METS "Option Strict" A ON, cela te forcera à typer tes variables et simplifiera la relecture et la rapidité du code.

Pour conclure, cette source n'a rien d'extraordinaire, mais peut permettre à des débutants de se familiariser avec les opérations sur les fichiers, à la condition que les points cités plus haut soient résolu ou du moins compris par les membres.

Bonne continuation.
S'inscrire maintenant

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.

Du même auteur (jaf6)