0/5 (4 avis)
Vue 7 835 fois - Téléchargée 493 fois
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
19 mai 2008 à 21:16
Merci et a bientot
19 mai 2008 à 14:37
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.
19 mai 2008 à 13:47
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
19 mai 2008 à 09:10
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.
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.