LogErrCreate

Private Function LogError()
Dim fso As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(GetSetting("ESS", "Settings", _
"GetErrorDir") & "\" & Format(Date, "yyyymmdd")) Then
Else
fso.CreateFolder (GetSetting("ESS", "Settings", _
"GetErrorDir") & "\" & Format(Date, "yyyymmdd"))
End If

If fso.FileExists(GetSetting("ESS", "Settings", _
"GetErrorDir", "c:\") & "\" & Format(Date, "yyyymmdd") _
& "\" & "ESSErrLog.txt") Then
Open GetSetting("ESS", "Settings", "GetErrorDir", _
"c:\") & "\" & Format(Date, "yyyymmdd") & _
"\" & "ESSErrLog.txt" For Append As #1
Else
fso.CreateTextFile (GetSetting("ESS", "Settings", _
"GetErrorDir", "c:\") & "\" & Format(Date, "yyyymmdd") _
& "\" & "ESSErrLog.txt")
Open GetSetting("ESS", "Settings", "GetErrorDir", _
"c:\") & "\" & Format(Date, "yyyymmdd") & _
"\" & "ESSErrLog.txt" For Append As #1
End If

DoEvents
Write #1, Now & ":; FileName:" & FileName & "; Err#:" & _
Err.Number & "; " & Err.Source & "; Err.Desc:" & _
Err.Description; ""
Close #1
Err.Clear ' Clear Error
End Function