begin process at 2012 02 17 01:10:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Système

 > AJOUTER DES FICHIERS LOG DANS SON APPLICATION.

AJOUTER DES FICHIERS LOG DANS SON APPLICATION.


 Information sur la source

Note :
Aucune note
Catégorie :Système Source .NET ( DotNet ) Classé sous :log, fichier log, system, system log, gestion log Niveau :Débutant Date de création :16/05/2008 Date de mise à jour :16/05/2008 21:37:00 Vu / téléchargé :5 771 / 263

Auteur : jaf6

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • 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
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....

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

16 mai 2008 21:37:00 :
probleme avec le zip correction

 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) CREATION DE FICHIER ASX POUR LECTURE EN STREAMING SUR UN SIT...

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena

 Sources en rapport avec celle ci

Source .NET (Dotnet) COMMENT ACCÈDÉ À UN SERVICE par iblsysteme
Source avec Zip Source .NET (Dotnet) AFFICHER LES INFORMATIONS DU SYSTÈME par PHILOUVB
Source avec Zip Source .NET (Dotnet) CLASSE DE LOG - LOGGER LES ÉVÈNEMENT D'UNE APPLICATION par novadys
Source avec Zip CALCUL DE LA FONCTION LOGARITHME par CFCTABLE
Source avec Zip Source avec une capture RESTAURANT MANAGEMENT SYSTEM par yessoufouabdel

Commentaires et avis

Commentaire de NHenry le 19/05/2008 09:10:04 administrateur CS

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.

Commentaire de jaf6 le 19/05/2008 13:47:26

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

Commentaire de NHenry le 19/05/2008 14:37:16 administrateur CS

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.

Commentaire de jaf6 le 19/05/2008 21:16:57

Ok, j'ai bien compris, je ferais plus attention dans l'avenir a bien declarer comme il se dois.

Merci et a bientot

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

problem de redondance [ par aitaziz3 ] salut j 'ai un probleme avec j'ai crée un service avec vb.dot qui as pour but de lire un flux text  et l enregistrer dans une base donné le probleme c Compilation sur un Drive amovible - solution [ par JeanMarcus ] Bonjour a toutes et  tous ! Je suis venu qqfois avec des problemes , j ai trouve qq aides precieuses et qq conseils et je n'ai jamais trouve de solu Problème lors de l'installation [ par nape ] J'ai réalisé l'exe de mon application Lorsque je veux installer mon exe sur un poste autre que le mien, j'ai un mesage d'erreur. A la lecture du fichi ouverture d'une MsgBox à une heure spécifié . [ par renly ] Voilà je débute plus ou moins et je cherche(désespérement) de puis pas mal de temps a ouvrir une MsgBox a une heure spécifié dans une textbox au forma erreur : Null exception [ par LaTatadu91 ] Bonjour,voila je suis totalement debutant sous vb et je me retrouve face a une erreur que je ne comprend pas:je fais communiquer un prog VB avec un pr Pb sur Update : System.Data.OleDb.OleDbException: Aucune valeur donnée pour un ou plusieurs des paramètres requis. [ par bdl20042000 ] Bonjour,je débute en .NET 2.0.je suis sous Windows XP + SP2 et VS 2005 Pro +SP1.dans une programme, j'ai :Try            Dim myDataAdapter As New OleD VB.Net PictureBox Fonction RectangleF [ par JeffC1977 ] Salut...Je ne sais pas le message d'erreur à propos d'un PictureBox et de la fonction RectangleFJe veux simplement faire dessiner des points pour chaq Creer une log [ par themasterofthescripts ] Je ne suis pas encore hyper experimenter en VB6 et 2005,  et je sais quand meme qu'il est impossible de stocker des elements dans un fichier exe....Je tester la date [ par payhens ] Dim date1 as datePrivate Sub Form5_Load( <font color="#000


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,153 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales