Quintiq file version 2.0
|
#parent: #root
|
StaticMethod GetQuintiqBaseDir () as String
|
{
|
Description: 'Maintain by R&D'
|
TextBody:
|
[*
|
// Dan Roozemond Jun-8-2012 (created)
|
|
dir := OS::BinDir();
|
|
// Strip trailing slash
|
if( dir.Regex( '(\\|/)$' ) )
|
{
|
dir := dir.Erase(dir.Length() - 1, 1 );
|
}
|
//Strip the \Bin
|
|
if( dir.Regex( '(\\|/)[Bb]in$' ) )
|
{
|
dir := dir.Erase(dir.Length() - 4, 4 );
|
}
|
|
// Strip the trailing i if it's of the form " - i"
|
while( dir.Regex(' - [0-9]+' ) )
|
{
|
dir := dir.Erase(dir.Length() - 1, 1 );
|
}
|
|
return dir;
|
*]
|
}
|
