Shared, private on 1st use Folder

I created about 5 shared, private on 1st use folders for search results. On rare occasions, the private folder has known to be deleted or missing from the database. In order to create the private folder again, is to just click on that particular shared folder to create the private version.

Does anyone know how to create that private folder from the shared programmatically? Either script or @formulas.

Subject: Shared, private on 1st use Folder

@Command( [Folder] ; folderName ; moveOrCopy )

or in script
From Help:
i>Call notesUIWorkspace.OpenDatabase( server$, file$, view$, key$,
newInstance, temp )]
so you would do something like:
Call ws.OpenDatabase( db.server, db.filepath, foldername,“”, True, False
)