лог-файлы

[Tof]

Короче я чего-то недопонимаю... кк работать с лог-файлом..
вот есть функции/св-ва App.LogMode, LogPath и LogEvent.. первые 2 для чтения, с помощью LogEvent я что-то могу в лог-файл засунуть (??)
дак вот.. у меня LogPath пустое, в инете пишут, что если пустое то она в лог-файл vbevents все.. а у меня и его нет...
короче воще недоумеваю что да как.

[Pioneer]

Короче я чего-то недопонимаю... кк работать с лог-файлом..
вот есть функции/св-ва App.LogMode, LogPath и LogEvent.. первые 2 для чтения, с помощью LogEvent я что-то могу в лог-файл засунуть (??)
дак вот.. у меня LogPath пустое, в инете пишут, что если пустое то она в лог-файл vbevents все.. а у меня и его нет...
короче воще недоумеваю что да как.

VB5.hlp ищи по LogEvent

[alibek]

Логи пишутся в системный журнал. Советую написать свои функции, это несложно. Если лень, то держи:

Код: Выделить всё

Sub LogEvent(Message As String, Optional Title As String, Optional EventType)
Dim S As String, FN As Integer
If Right$(App.Path, 1) = "\" Then
  S = App.Path & App.EXEName & ".log"
Else
  S = App.Path & "\" & App.EXEName & ".log"
End If
FN = FreeFile: Open S For Append As #FN
If VarType(EventType) = vbString Then
  EventType = UCase$(Left$(Trim$(EventType), 1))
Else
  Select Case EventType
    Case 1
      EventType = "I"
    Case 2
      EventType = "W"
    Case 4
      EventType = "E"
    Case Else
      EventType = vbNullString
  End Select
End If
Select Case EventType
  Case "I"
    S = "INFO"
  Case "W"
    S = "WARNING"
  Case "E"
    S = "ERROR"
  Case Else
    S = vbNullString
End Select
If Len(Title) > 0 Then
  If Len(S) > 0 Then S = S & ": "
  S = S & Title
End If
Print #FN, "# CLOCK: " & Format$(Now, "YYYY.MM.DD\ \-\ HH:NN:SS")
Print #FN, S
Print #FN, Message
Print #FN,
Close #FN
End Sub