[Данные, строки] Вычисление относительного пути файла

#include <File.au3>

$sFrom = "D:\Portableapps\Filemenegers\totalсmd" ;$CmdLine[2]
$sTo = "D:\Portableapps\proga\proga.exe" ;$CmdLine[1]

$sRelative_Path = _PathGetRelative($sFrom, $sTo)

ConsoleWrite($sRelative_Path & @LF)

;#include <Array.au3>
If $CmdLine[0]>1 Then
	$Path1=$CmdLine[1]
	$Path2=$CmdLine[2]
Else
	$Path1='D:\Portableapps\proga\proga.exe'
	$Path2='D:\Portableapps\Filemenegers\totalсmd'
	;Exit
EndIf

;$aPath1=StringRegExp($Path1&'\','(.*?)(?:\\)',3)
;$aPath2=StringRegExp($Path2&'\','(.*?)(?:\\)',3)
$aPath1=StringRegExp($Path1,'(.*?)(?:\\)',3)
$aPath2=StringRegExp($Path2,'(.*?)(?:\\)',3)
$kol1=UBound($aPath1) - 1
$kol2=UBound($aPath2) - 1

If $kol1<$kol2 Then
	$min=$kol1
Else
	$min=$kol2
EndIf
;_ArrayDisplay( $aPath1, "Смотрим текущий массив aPath1" )
;_ArrayDisplay( $aPath2, "Смотрим текущий массив aPath2" )
$Path=''
For $i = 0 to $min
;MsgBox(0, "Сообщение", $aPath1[$i]&@CRLF&$aPath2[$i])
	If $aPath1[$i]=$aPath2[$i] Then
		$Path&=$aPath1[$i]&'\'
	Else
		ExitLoop
	EndIf
Next

ClipPut(StringTrimRight($Path, 1))
MsgBox(0, "Сообщение", StringTrimRight($Path, 1))
Exit

#include <File.au3>
ClipPut(_PathGetRelative($CmdLine[1], $CmdLine[2]))