AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 05 16:59:46
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

AJOUTER DES FICHIERS LOG DANS SON APPLICATION.


Information sur la source

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é: 3 917 / 176
Auteur : jaf6 Ecrire un message privé
Note :
Aucune note
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

Pour les "Membres Club", vous pouvez 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

Commentaires et avis

signaler à un administrateur
Commentaire de NHenry le 19/05/2008 09:10:04

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.

signaler à un administrateur
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

signaler à un administrateur
Commentaire de NHenry le 19/05/2008 14:37:16

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.

signaler à un administrateur
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

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.