Enregistrement d'evenement dans un fichier de type texteRésolu

Question

Bonjour à tous,

Voilà mon soucis :
Au niveau du programme que j'ai créé, je cherche à enregistrer dans un fichier de type texte toutes les actions demandé par l'utilisateur au programme.
Je travaille sous VB6.0
Voici mon programme :
Je suis reliée via port série à un appareil (Utilisation du composant mscomm associé à un timer). L'utilisateur envoi des commandes, la couche applicative du programme les recois, les traites et les affiches soit dans une zone de texte soit dans un mshflexgrid.
Mon programme est composé :
   - De bouton de lancement de commande qui permet l'affichage de différents tableau de type MSHFlexGrid qui sont alimenté par un recordset dynamique
   - Un TreeView qui par double click sur le noeud lance une commande.
   - Une zone de texte qui affiche les résultats des commandes qui ne peuvent etre affichées en mode tableau.
A chaque fois qu'une commande (soit par les boutons de commandes, soit par le double click sur le noeud du treeView) est lancée je veux enregistrer cette commande afin de conserver une trace des différentes manipulations.

Merci de m'aider...
S.L.B.

jrivet · Accepted Answer

Salut,
Rien de plus simple.
Regarde dans la section code comment écrire dans un fichier texte. ou bien dans le forum. bref une petite recherche te donneras rapidement de bons résultats.

@+: Ju£i?n
Pensez: Réponse acceptée

lillith212 · Answer

Bonjour,
J'ai en effet trouvé le code nécessaire mais mon soucis est qu'à la création du fichier texte j'ai un message d'erreur me disant :
"Erreur d'execution '70' Permission refusée"
Quelqu'un a une idée???

Merci 

Ps :
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\Trace.txt")

jrivet · Answer

Salut,
Est tu sur d'avoir les droits d'accès suffisants pour créer un fichier dans le dossier C:\Documents And Settings\

Es tu sur que l'erreur survient sur l'une de ces deux lignes???
@+: Ju£i?n
Pensez: Réponse acceptée

lillith212 · Answer

Re... :)


Oui je possede les droits d'acces sans soucis (Administrateur total de mon poste) et l'erreur survient à la seconde ligne.
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\Trace.txt")

Merci

jrivet · Answer

Re,
Est ce que par hasard le fichier ne serait pas en lecture seule, ou bien en fichier chaché?

@+: Ju£i?n
Pensez: Réponse acceptée

lillith212 · Answer

Re,

C'est un fichier qui est créer directement, ni en caché, ni en lecture seule.
Sauf s'il existe des paramètres pour le définir mais la j'ai rien touché!!! 

En tout cas merci pour ton aide...

lillith212 · Answer

Bonne nouvelle....
Les mystères de l'informatique ont fait en sortes que sans rien changer, juste en fermant et en rouvrant mon programme ca fonctionne... :)
Pour information voici mon code si ca peut aider certains...

'-- Déclaration Public
Public FSys            As FileSystemObject
Public MonFic        As Object

'-- form_load :
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile("C:\Documents and Settings\Trace.txt", 2, True)

'-- Dans les procedures qui appellent les commandes :
MonFic.WriteLine 'Nom de la commande

'-- A la fermeture
MonFic.Close
Set FSys = Nothing

Enregistrement d'evenement dans un fichier de type texte

7 réponses

Votre réponse

Discussions similaires