Error 52: Bad File Name

[samer22]

Hello vbforums
This code sometimes throws the following error.
Error 52: Bad File Name or Number Error

Dim P As Long
Dim leNombre As Long

 P = FreeFile
 Open DBPath & "\ficN.txt" For Output As P
 Print #P, leNombre
 Close (P)

Any idea please
thanks

[DataMiser]

Well that depends on what is stored in dbPath. Typically that message would indicate a bad [invalid or nonexisting] path\file name
If dbpath is empty then it would likely give an access denied error instead as it would be trying to create a file in the root and that is by default not allowed under systems newer than XP.

[samer22]

thank you DataMiser
the dbPath is defined in the Sub Main
The problem is that I got the error very rarely.

[qvb6]

Use Debug.Print before Open. DBPath probably has a subfolder that doesn't exist, or was deleted. There are many FolderExist routines out there to make sure that the folder exists, and create it if needed. You may also want to search for SHCreateDirectoryEx(), which creates a directory tree in case more than one subfolder doesn't exist.

[MikeSW17]

Also, what value is P ? The full text of error 52 is Bad File Name or Number. IIRC there is a maximum number of open files limit.
A leak of file numbers (files not being properly closed) elsewhere in your code could cause FreeFile to exceed a limit.

[samer22]

Thank you MikeSW17
Do you haveany suggestions please?