NL Computer Forum
Maak het zelf => Programmeren => Topic gestart door: jackson0 † op 6 oktober 2014, 20:45:00
-
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
-
Hoi,
Een nogal vreemde en ongewenste constructie. Vertel maar eens in je eigen woorden wat er gebeurt als er een fout optreedt in deze subroutine.
-
Hoi Peter,
Deze logging werkt normaliter zonder problemen. Alleen bij het opstarten van het programma waarin deze logging is opgenomen krijg ik deze melding. Als ik met F8 de regel bepaal waar de fout zich meldt, gebeurt dat op Close #df.
-
Hoi,
Je geeft geen antwoord op mijn vraag om je code te omschrijven.
Voeg de volgende regel toe direct achter "df = FreeFile":
MsgBox "df=" & df & vbCrLf & _
"LOGDIR=" & LOGDIR & vbCrLf & _
"LogText=" & LogText & vbCrLf & _
"VorigeFout=" & VorigeFout & "."
Start het programma en wacht tot de MsgBox verschijnt.
Maak een screenshot van de melding, hoe je dat doet lees je HIER (http://www.byte.nl/wiki/Screenshot_Maken).
Upload dit bestand naar http://www.imgdumper.nl (http://www.imgdumper.nl).
Je krijgt dan een aantal unieke links. Post de eerste link in je volgend bericht.
-
Hoi Peter,
Deze MsgBox geeft Syntax error. Volgens mij mankeert er niets aan de syntaxis.
-
Vreemd, post daarvan een screenshot.
-
Sorry Peter, er was een & weggevallen. Aangehecht het resultaat van de screenshot.
-
Kan gebeuren. Ik zie geen bijlage/screenshot.