Log-fil

Public Sub UnHandledError(Obj As String, Func As String, ErrCode As Variant, ErrorMsg As String)
 
  Dim ErrorFile As Integer
  Dim FileNo As Integer
 
  On Error Resume Next
 
  FileNo = FreeFile
  Open GetUniqueFileName For Append As #FileNo
  Print #FileNo, \"App: \" & App.EXEName
  Print #FileNo, \"Title: \" & App.Title
  Print #FileNo, \"Major: \" & App.Major
  Print #FileNo, \"Minor: \" & App.Minor
  Print #FileNo, \"Revision: \" & App.Revision
  Print #FileNo, Format$(Now, \"hh:mm:ss\") & \" \" & Obj & \", \" & Func & \": \" & ErrCode & \" - \" & ErrorMsg
  Debug.Print Format$(Now, \"hh:mm:ss\") & \" \" & Obj & \", \" & Func & \": \" & ErrCode & \" - \" & ErrorMsg
  Close FileNo
\'  MsgBox ErrCode & \" - \" & ErrorMsg, vbExclamation
 
End Sub

Public Function GetUniqueFileName()
  On Error Resume Next
  GetUniqueFileName = App.Path & \"\\Err\" & Format$(Now, \"YYMMDD\") & \".ERR\"
End Function

ok... Jeg fatter det ik helt....

Kan du ik skære det ud i pap...

jeg er ik helt med på...

FileNo = FreeFile
  Open GetUniqueFileName For Append As #FileNo

Du arbejder med filer via et nummer. Ved at bruge FreeFile er der garanti for at få et ledigt filnummer (i modsætning til bare at bruge 1)

GetUniqueFileName returnerer et filnavn baseret på dags dato (en log per dag).

ok... men hvad hedder log-filen??


Jeg virker måske lidt dum.... :)

Logfilen for i dag kommer til at hedde c:\\Programmer\\XProg\\Err011108.ERR

jeg skal skrive en bestemt linie i en fil...fx:

[linie 1] Grete har en enormt stor
[linie 2] Bondegård, der er både
[linie 3] Heste, grise og får!

og så skal der være en dropdown menu i formen, hvor man kan vælge i mellem flere linier. fx [Linie2,a] & [linie2,b] og hvis man så vælger [linie2,b] skal den lave [linie 2] om til \"Hønsegård, der er hverken\", så at der står:

[linie 1] Grete har en enormt stor
[linie 2] Hønsegård, der er hverken
[linie 3] Heste, grise og får!

og lige sådan tilbage!!!

er det blevet nemmere at forstå nu??
Det syns jeg tihvertifald!! :)