In onderstaande Sub krijg ik de fout: "Deze naam is geen geldige bestandsnaam''. Deze verschijnt na Close #df.
Ik zie er niets verkeerd aan.
Public Sub WriteLOG(LogText)
' Create or add to existing logfile, filename is current date
On Error GoTo FoutWriteLOG
Dim df%
df = FreeFile
Open LOGDIR & Format(Date, "yyyymmdd") & "LOG.TXT" For Append As #df
Print #df, Now & Chr(32) & LogText
' WriteLOG ("---< " & App.Title & " started >---" & ernum & " " & Foutbron) ' Write main start to logfile
Close #df
Exit Sub
FoutWriteLOG:
Foutbron = "WriteLOG"
ernum = Err.Number
If ernum & " " & Err.Description & " " & Foutbron <> VorigeFout Then
Call WriteLOG("---< " & App.Title & " geeft >---" & ernum & " " & Err.Description & " " & Foutbron)
VorigeFout = ernum & " " & Err.Description & " " & Foutbron
Resume Next
End If
End Sub