Discussion :

[thovan]

Bonjour,

Dans mon application j'ai ajouté une fonction pour tracer un peu tous les événements et surtout le détail des erreurs lors des "catch exception as"

La fonction commence par vérifier si il existe déjà un fichier de log à la date du jour.
Si oui, elle fait un append du texte passé en argument, sinon elle créé le fichier et ensuite fait le append du texte passé en argument.

Voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function writetolog(ByVal message As String)
        Dim logmessage As String = Format(Date.Now, "dd-MM-yyyy HH:mm:ss ").ToString & message
        Try
            If File.Exists(GetIntoConfig("Logpath") & "\Log du " & Format(Date.Now, "ddMMyyyy").ToString & ".txt") Then
                File.AppendAllText(GetIntoConfig("Logpath") & "\Log du " & Format(Date.Now, "ddMMyyyy").ToString & ".txt", logmessage & vbCrLf)
            Else
                Dim fs As FileStream = File.Create(GetIntoConfig("Logpath").ToString & "\Log du " & Format(Date.Now, "ddMMyyyy".ToString & ".txt"))
                fs.Close()
                File.AppendAllText(GetIntoConfig("Logpath") & "\Log du " & Format(Date.Now, "ddMMyyyy").ToString & ".txt", logmessage & vbCrLf)
            End If
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

La fonction marche parfaitement bien mais lorsqu'elle créé le fichier, elle créé également un fichier du même nom mais avec une extension ".x"
Une idée de pourquoi?
J'ai testé plusieurs méthodes pour la création du fichier et elles font toutes ça.

Ce n'est pas bloquant mais ça va devenir un peu lourd de devoir aller les supprimer de temps en temps.
Si quelqu'un à une idée....

[baloub]

Bonjour,
J'ai testé et effectivement ça créé un fichier vide ".x". (uniquement si le fichier .txt n'existe pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim fs As FileStream = File.Create(GetIntoConfig("Logpath").ToString & "\Log du " & Format(Date.Now, "ddMMyyyy".ToString & ".txt"))
fs.Close()

à remplacer par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dim fs As FileStream = File.Create(GetIntoConfig("Logpath").ToString & "\Log du " & Format(Date.Now, "ddMMyyyy") & ".txt")
 fs.Close()

Il y a des .ToString inutiles (Format renvoi une chaîne), et surtout une parenthèse mal placée.
Le code ci-dessus à l'air de fonctionner.

Après, il faudrait voir ce que fait exactement ce ' & ."txt" ' mal placé...

[thovan]

Merci
J'ai adapté le code.
Je vérifie demain quand il créera le log !


[Edit]
Bien....
Pas de fichier .x aujourd'hui

Donc c'est bien lié à la manière d'écrire le chemin du fichier à créer.....

Reste à savoir pourquoi !
Une idée ?
Sinon c'est rien je ferme le sujet

[baloub]

C'est plutôt une erreur d'écriture.
Tu avais marqué ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim fs As FileStream = File.Create(GetIntoConfig("Logpath").ToString & "\Log du " & Format(Date.Now, "ddMMyyyy".ToString & ".txt"))

Ce qui revient à concaténer "ddMMyyyy" et ".txt".
C'est équivalent à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim fs As FileStream = File.Create(GetIntoConfig("Logpath").ToString & "\Log du " & Format(Date.Now, "ddMMyyyy.txt"))

faudrait voir pourquoi "ddMMyyyy.txt" produit ce curieux résultat, mais j'avoue que j'ai un peu la flemme

[thovan]

Oui et non... même mal écrite la fonction créait quand même bien le fichier avec le fichier .X en +

Mais bon, je n'ai rien trouvé sur google on va pas chercher plus loin

Merci pour l'aide en tout cas .