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") ) 
 | 
                                          ); 
 | 
  *] 
 | 
} 
 |