Problème fichier de log
cs_docgeo
Messages postés
7
Date d'inscription
jeudi 10 juin 2004
Statut
Membre
Dernière intervention
10 novembre 2006
-
15 sept. 2006 à 17:08
cs_docgeo Messages postés 7 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 10 novembre 2006 - 18 sept. 2006 à 12:49
cs_docgeo Messages postés 7 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 10 novembre 2006 - 18 sept. 2006 à 12:49
A voir également:
- Visual studio error log
- Visual studio 2005 - Conseils pratiques -Visual Basic / VB.NET
- Visual studio code 2019 ✓ - Forum C / C++ / C++.NET
- Visual studio code retour à la ligne automatique ✓ - Forum Visual Basic 6
- Visual studio code commenter plusieurs lignes ✓ - Forum Visual Basic
- Visual studio designer ✓ - Forum C# / .NET
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
15 sept. 2006 à 18:28
15 sept. 2006 à 18:28
Salut
Il te suffit d'ouvrir ton fichier LOG au moment où tu as besoin d'écrire dedans en utilisant "Append" dans la commande Open afin qu'il ouvre le fichier et qu'il se positionne à la fin du fichier, le Print #x, "la ligne que tu écris" écrira à la suite.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Il te suffit d'ouvrir ton fichier LOG au moment où tu as besoin d'écrire dedans en utilisant "Append" dans la commande Open afin qu'il ouvre le fichier et qu'il se positionne à la fin du fichier, le Print #x, "la ligne que tu écris" écrira à la suite.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_docgeo
Messages postés
7
Date d'inscription
jeudi 10 juin 2004
Statut
Membre
Dernière intervention
10 novembre 2006
18 sept. 2006 à 11:45
18 sept. 2006 à 11:45
Bonjour!!
Voici mon code :
------------------------------------------------
On Error Resume Next
Function TestErreur(oFic)
If Err.number <> 0 Then
oFic.WriteLine "L'erreur " & Err.number & " [" & Err.description & "] s'est produite"
On Error GoTo 0
End If
End Function
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
cheminFicErreur = "C:\strategie.log"
objFSO.CreateTextFile cheminFicErreur, True
On Error Resume Next
Set objFileErr = objFSO.OpenTextFile(cheminFicErreur , ForAppending)
TestErreur(objFileErr)
On Error Resume Next
objFileErr.WriteLine "Connexion réseau H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "H:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\intranet\mck_nl]"
TestErreur(objFileErr)
Wscript.Quit
On Error Resume Next
objFileErr.WriteLine "Deconnexion H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
objFileErr.Close
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "H:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "Y:"
TestErreur(objFileErr)
----------------------------------------------
Dans ce code il y a donc création d'un fichier de log sous C: puis connexion de deux lecteurs réseaux. Merci de m'aider au niveau de l'écriture dans le fichier de log. J'aimerais qu'a l'intérieur de ce fichier il soit mis automatiquement les choses suivantes :
"Lecteurs réseaux connectés" si les lecteurs se sont connectés correctement et "lecteurs réseaux non connectés" si ils ne se sont pas connectés. Voila. Je ne connait pas trop la syntaxe et je ne sais pas si tout ce que j'ai mis dans mon code est juste et nécessaire.
Merci d'avance pour votre aide!
Geo
Voici mon code :
------------------------------------------------
On Error Resume Next
Function TestErreur(oFic)
If Err.number <> 0 Then
oFic.WriteLine "L'erreur " & Err.number & " [" & Err.description & "] s'est produite"
On Error GoTo 0
End If
End Function
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
cheminFicErreur = "C:\strategie.log"
objFSO.CreateTextFile cheminFicErreur, True
On Error Resume Next
Set objFileErr = objFSO.OpenTextFile(cheminFicErreur , ForAppending)
TestErreur(objFileErr)
On Error Resume Next
objFileErr.WriteLine "Connexion réseau H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "H:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\intranet\mck_nl]"
TestErreur(objFileErr)
Wscript.Quit
On Error Resume Next
objFileErr.WriteLine "Deconnexion H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
objFileErr.Close
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "H:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "Y:"
TestErreur(objFileErr)
----------------------------------------------
Dans ce code il y a donc création d'un fichier de log sous C: puis connexion de deux lecteurs réseaux. Merci de m'aider au niveau de l'écriture dans le fichier de log. J'aimerais qu'a l'intérieur de ce fichier il soit mis automatiquement les choses suivantes :
"Lecteurs réseaux connectés" si les lecteurs se sont connectés correctement et "lecteurs réseaux non connectés" si ils ne se sont pas connectés. Voila. Je ne connait pas trop la syntaxe et je ne sais pas si tout ce que j'ai mis dans mon code est juste et nécessaire.
Merci d'avance pour votre aide!
Geo
cs_docgeo
Messages postés
7
Date d'inscription
jeudi 10 juin 2004
Statut
Membre
Dernière intervention
10 novembre 2006
18 sept. 2006 à 12:49
18 sept. 2006 à 12:49
Bonjour!!
Voici mon code :
------------------------------------------------
On Error Resume Next
Function TestErreur(oFic)
If Err.number <> 0 Then
oFic.WriteLine "L'erreur " & Err.number & " [" & Err.description & "] s'est produite"
On Error GoTo 0
End If
End Function
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
cheminFicErreur = "C:\strategie.log"
objFSO.CreateTextFile cheminFicErreur, True
On Error Resume Next
Set objFileErr = objFSO.OpenTextFile(cheminFicErreur , ForAppending)
TestErreur(objFileErr)
On Error Resume Next
objFileErr.WriteLine "Connexion réseau H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "H:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\intranet\mck_nl]"
TestErreur(objFileErr)
Wscript.Quit
On Error Resume Next
objFileErr.WriteLine "Deconnexion H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
objFileErr.Close
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "H:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "Y:"
TestErreur(objFileErr)
----------------------------------------------
Dans ce code il y a donc création d'un fichier de log sous C: puis connexion de deux lecteurs réseaux. Merci de m'aider au niveau de l'écriture dans le fichier de log. J'aimerais qu'a l'intérieur de ce fichier il soit mis automatiquement les choses suivantes :
"Lecteurs réseaux connectés" si les lecteurs se sont connectés correctement et "lecteurs réseaux non connectés" si ils ne se sont pas connectés. Voila. Je ne connait pas trop la syntaxe et je ne sais pas si tout ce que j'ai mis dans mon code est juste et nécessaire.
Merci d'avance pour votre aide!
Geo
Voici mon code :
------------------------------------------------
On Error Resume Next
Function TestErreur(oFic)
If Err.number <> 0 Then
oFic.WriteLine "L'erreur " & Err.number & " [" & Err.description & "] s'est produite"
On Error GoTo 0
End If
End Function
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
cheminFicErreur = "C:\strategie.log"
objFSO.CreateTextFile cheminFicErreur, True
On Error Resume Next
Set objFileErr = objFSO.OpenTextFile(cheminFicErreur , ForAppending)
TestErreur(objFileErr)
On Error Resume Next
objFileErr.WriteLine "Connexion réseau H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "H:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\intranet\mck_nl]"
TestErreur(objFileErr)
Wscript.Quit
On Error Resume Next
objFileErr.WriteLine "Deconnexion H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
objFileErr.Close
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "H:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "Y:"
TestErreur(objFileErr)
----------------------------------------------
Dans ce code il y a donc création d'un fichier de log sous C: puis connexion de deux lecteurs réseaux. Merci de m'aider au niveau de l'écriture dans le fichier de log. J'aimerais qu'a l'intérieur de ce fichier il soit mis automatiquement les choses suivantes :
"Lecteurs réseaux connectés" si les lecteurs se sont connectés correctement et "lecteurs réseaux non connectés" si ils ne se sont pas connectés. Voila. Je ne connait pas trop la syntaxe et je ne sais pas si tout ce que j'ai mis dans mon code est juste et nécessaire.
Merci d'avance pour votre aide!
Geo
