| re: Debug.Wrile does not appear on the Output Window
Bernard,
Are you sure that there is not a blank line.
Debug.WriteLine("", vbNullString)
By instance because this is happening
I hope this helps,
Cor
"Bernard Bourée" <bernard@bouree.net> schreef in bericht
news:evdtOCfZGHA.1192@TK2MSFTNGP03.phx.gbl...[color=blue]
> Cor Ligthert [MVP] a écrit :[color=green]
>> Bernard,
>>
>> Can you show the code?
>>
>> On MSDN is written how to use it, we cannot change that.
>> Now you have only told, that it does not appear. By most of us it appears
>> so you should have done something special.
>>
>> Cor
>>
>> "Bernard Bourée" <bernard@bouree.net> schreef in bericht
>> news:e1GevKeZGHA.4884@TK2MSFTNGP02.phx.gbl...[color=darkred]
>>> In order to trace my job I placed some
>>> Debug.Writeline in my code but they don't appear in the output window!
>>> How to solve it?
>>>
>>> Thanks
>>> Bernard
>>>[/color]
>>
>>
>>[/color]
> Cor
>
> Of course I can show the code.
> I have a small routine in order to trace my code.
> Here it is.
> It was working fine before but now not.
> I have looked at the options but could not find a related item.
>
> Thanks for your help
> Bernard
>
> Public Sub PrintLog(ByVal sMsg As String, Optional ByVal sTitre As String
> = vbNullString)
>
> Dim fs As New Scripting.FileSystemObject
> Dim Stream As Scripting.TextStream
> Dim NF As String
> NF = NOM_FICHIER_LOG & "_" & Replace(CStr(Today), "/", "_") &
> ".log"
> Stream = fs.OpenTextFile(NF, Scripting.IOMode.ForAppending, True)
> Stream.WriteLine(CType(System.DateTime.Now, String))
>
> Stream.WriteLine(sTitre & " : " & sMsg)
> Debug.WriteLine(sMsg, sTitre)
> Stream.Close()
> bLogImprimé = True
> End Sub
>[/color]
| 
