Gets the common parts in all paths

[Davider]

Hi,
Is there an easy way to get the common parts of all paths? 
In the following example, I expect the output to be
C:\Users\Administrator\Desktop\Test0\DEF\

Thanks in advance for any advice and help
david
 

 C:\Users\Administrator\Desktop\Test0\DEF\A
 C:\Users\Administrator\Desktop\Test0\DEF\B
 C:\Users\Administrator\Desktop\Test0\DEF\1.txt
 C:\Users\Administrator\Desktop\Test0\DEF\2.txt

Macro Macro2

Code:

Copy      Help

_s=
;C:\Users\Administrator\hello
;C:\Users\Administrator\hello\B
;C:\Users\Administrator\hello\C\a.bat
;C:\Users\Administrator\hello\B\1.txt
;C:\Users\Administrator\Desktop\Test0\DEF\A
;C:\Users\Administrator\Desktop\Test0\DEF\B
;C:\Users\Administrator\Desktop\Test0\DEF\1.txt
;C:\Users\Administrator\Desktop\Test0\DEF\2.txt

;Todo: Gets the common parts in all paths
;C:\Users\Administrator\hello
;C:\Users\Administrator\Desktop\Test0\DEF\

[Davider]

Here is the Powershell code

Can anyone provide a simpler QM equivalent code?  
 

Code:

Copy      Help

$s = @'
C:\Users\Administrator\hello
C:\Users\Administrator\hello\B
C:\Users\Administrator\hello\C\a.bat
C:\Users\Administrator\hello\B\1.txt
C:\Users\Administrator\Desktop\Test0\DEF\A
C:\Users\Administrator\Desktop\Test0\DEF\B
C:\Users\Administrator\Desktop\Test0\DEF\1.txt
C:\Users\Administrator\Desktop\Test0\DEF\2.txt
'@

$s = $s -split "\r?\n"
for ($i = 0; $i -lt $s.length; $i++)
{
    if (!(gv a 2>$null))
    {
        for ($j = 0; $j -lt $s[$i + 1].length; $j++)
        {
            if (($s[$i][0 .. $j] -join '') -ne ($s[$i + 1][0 .. $j] -join '')) { $a = $s[$i][0 .. ($j - 1)] -join ''; break }
        }
    }
    if ($s[$i + 1] -notmatch [regex]::Escape($a)) { $a; rv a }
}

---