créer et lire un fichier log avec date

créer et lire un fichier log avec date - VB/VBA/VBS - Programmation

Marsh Posté le 15-12-2005 à 10:03:10    

Bonjour,
 
Je souhaite créer via un script vbs un fichier log avec dedans la date et l'heure de l'execution et je veux aller lire le contenu pour l'afficher dans un message.
 
En résumé c'est pour créer un historique de l'execution d'un script.
 
Merci de votre aide.

Reply

Marsh Posté le 15-12-2005 à 10:03:10   

Reply

Marsh Posté le 15-12-2005 à 11:52:31    

Pour créer le fichier de log utilise la fonction CreateTextFile du FileSystemObject.
http://msdn.microsoft.com/library/ [...] 6f4e1d.asp
 
Pour avoir la date et l'heure utilise les fonctions Date() et Time()


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 15-12-2005 à 13:43:33    

on peut me detailler les fonction date et heure ?
 
merci je debute en vbs !!!

Reply

Marsh Posté le 15-12-2005 à 14:23:55    

quand je copie ces ligne de codes trouvées sur le site msdn ca me renvoie une erreur a propos du response. Manque t il quelque chose ?
 
Dim fso, f1, ts, s
 
   Const ForReading = 1
 
   Set fso = CreateObject("Scripting.FileSystemObject" )
 
   Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
 
   ' Write a line.
 
   Response.Write "Writing file <br>"
 
   f1.WriteLine "Hello World"
 
   f1.WriteBlankLines(1)
 
   f1.Close
 
   ' Read the contents of the file.
 
   Response.Write "Reading file <br>"
 
   Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
 
   s = ts.ReadLine
 
   Response.Write "File contents = '" & s & "'"
 
   ts.Close

Reply

Marsh Posté le 15-12-2005 à 14:31:53    

Vire les response.write, c'est au cas où tu mettrai ton code dans une page ASP


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 15-12-2005 à 14:36:46    

si je les vire je ne vois rien de ce que lis !!

Reply

Marsh Posté le 15-12-2005 à 15:01:23    

remplace  
  Response.Write "File contents = '" & s & "'"
par
  MsgBox "File contents = '" & s & "'"


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed