Quintiq file version 2.0
#parent: #root
Method PTF_SetSharedRepositoryExistStatus () id:Method_LibPTF_pnlTestController_PTF_SetSharedRepositoryExistStatus
{
  #keys: '[104342.0.755841202]'
  Body:
  [*
    // Checks if the shared repository path specified has the required subfolders
    sharedrepo := edtSharedRepository.Text().TrimBoth();
    
    if( sharedrepo.Length() > 0
        and sharedrepo.RestString( sharedrepo.Length() - 1 ) <> "\" )
    {
      sharedrepo := sharedrepo + "\";
    }
    
    vhSharedRepositoryExist.Value( [String]( OS::IsDirectory( sharedrepo + "Installation" )
                                            and OS::IsDirectory( sharedrepo + "Logs" )
                                            and OS::IsDirectory( sharedrepo + "Scripts") )
                                          );
  *]
}
