getting runtime error 52 bas file name or number

[mishika]

Q: getting runtime error 52 bas file name or number

D:

Public Function gf_ChkMkDir(iDirPath As String, iDirName As String) As Boolean
Dim MyPath As String
gf_ChkMkDir = False
MyPath = Dir(iDirPath & "\" & iDirName & "\", vbDirectory)
If MyPath = vbNullString Then
 
    MkDir (iDirPath & "\" & iDirName)
End If
gf_ChkMkDir = True
End Function
Public Function g_OnError(ByVal FileDesc As Integer, ByVal ErrNumber As Double, ByVal ErrDescription As String, Optional ByVal Status As String)
If Status = "" Then
    MsgBox ErrDescription & " - " & Err.Description
    Print #FileDesc, ErrDescription & " - " & Err.Description
    End
Else
    Print #FileDesc, ErrDescription & " - " & Err.Description
End If
 Close #FileDesc
End Function

[zmbd]

mishika:
Since this is your first post, I'll be gentile:
You haven't set the file pointer.
I'll assume that the error is happeing around line 14 in the posted code as currently formatted.

Please read the following Insight Article:
VBA Standard Text File I/O Statements

Next:
Posted code without explanation or question. Please read the FAQ and posting guidlines before reposting your question.

By, simply stating that your code "doesn't work," along with code that appears to have had very little if any troubleshooting performed, and expecting someone to help doesn't usually result in much of an answer and may result in your thread being deleted.

In the future, please tell us what you were expecting to happen, what actually happened, for each error: the EXACT title, error number, and descriptions that occurred and at what line in your posted code the error occurred. Script (VBA or SQL, etc) must be formated using the [CODE/] format button, formatted tables will also benefit from this as they will retain the spacing).
These are the minimum requirements for posting a question of this nature.