Help

erude · September 15th, 2005, 01:14 PM

I need to know how this is done in vb.net,thanks

On Error Resume Next
    Dim f As Integer
    f = FreeFile
    Open App.Path & "\Errors.log" For Append As #f
    Print #f, Format(Now, "mm/dd/yyyy") & " " & Format(Now, "hh:nn:ss") & " - "; p_sError
    Close #f

    If p_bDisplay Then
        MsgBox p_sError, vbCritical + vbApplicationModal
    Else
End If

BrianWren · September 19th, 2005, 11:00 AM

Code:

    On Error Resume Next

    ' True (below) = Append.  Will create if file does not exist.
    Dim SW As New StreamWriter(App.Path & "\Errors.log", True)

    SW.WriteLine(Format(Now, "mm/dd/yyyy") & " " & _
                        Format(Now, "hh:nn:ss") & " - " & _
                        p_sError)

    SW.Close()
    SW = Nothing

    . . .

(App.Path might need to be changed. I don't believe that will work in .NET; not sure though.)