I can create the first level directory, but when trying to create a directory inside I get an "access forbidden" error.
Testing code:
Code: Select all
Public Sub Form_Open()
If Not Exist(User.Home &/ "Test") Then Mkdir (User.Home &/ "Test")
If Not Exist("Test/Test1") Then Mkdir ("Test/Test1")
End
Code: Select all
Public Sub CheckDirIntegrity()
If Not Exist(User.Home &/ Mglobal.sBaseDir) Then Mkdir (User.Home &/ Mglobal.sBaseDir) ' check for base directory
If Not Exist(Mglobal.sAppDirPath) Then Mkdir (Mglobal.sAppDirPath) ' check for application directory
If Not Exist(Mglobal.sConfigPath) Then Mkdir (Mglobal.sConfigPath) ' check for configuration directory
If Not Exist(Mglobal.sDataPath) Then Mkdir (Mglobal.sDataPath) ' check for data directory
End