Извлечение полного имени папки RegExp'ом, из нестандартного пути

Dim $aPath[5]

$aPath[0] = 'C:\MyProgram\Icons.dll,1'
$aPath[1] = 'C:\MyProgram\Icons.dll  ,  1'
$aPath[2] = 'Icons.dll,  -4'
$aPath[3] = 'Icons.dll, <= В этом случае индекс 0'
$aPath[4] = 'Icons.dll <= Тоже 0'

;$sPattern = '((?:.*\\)?)(.*?\..*?dll)\D*(\d*)'

; $sPattern = '((?:.*\\)?)(.*?\..*?dll)\D*+(\d*+)' ; Может так будет лучше

$sPattern = '((?:.*\\)?.*?\..*?dll)\D*+(\d*+)' ; Так пожалуй корректней

For $i = 0 To UBound($aPath) - 1
    
   ;$sIcon=StringRegExpReplace($aPath[$i], $sPattern, '\2 | \3') 

    $sIcon=StringRegExpReplace($aPath[$i], $sPattern, '\1 | \2') ; Так пожалуй корректней
    
    ConsoleWrite($sIcon & @LF)
Next

Dim $a[5] = [ _
  'C:\My Program\Icons.dll,1'   , _
  'C:\My Program\Icons.dll  , 1', _
  '"C:\My Program,1\Icons.dll",  -4'              , _
  'Icons.dll,'                  , _
  'Icons.dll'                     _
]
For $i=0 To UBound($a)-1
  $f = StringRegExpReplace($a[$i], '^\s*(?>"([^"]*+)"|([^,]*?)\s*(?:,|$)).*+', "\1\2")
  $n = StringRegExpReplace($a[$i], ".*?(?>[\s,]([+-]?\d++)\s*|)$", "\1")+0
  
  ConsoleWrite("path: '"& $f &"'" &@CRLF)
  ConsoleWrite("icon: '"& $n &"'" &@CRLF)
  ConsoleWrite("----------------" &@CRLF)
Next

Dim $aPath[6]

$aPath[0] = 'C:\MyProgram\Icons.dll,1'
$aPath[1] = 'C:\MyProgram\Icons.dll  ,  1'
$aPath[2] = 'Icons.dll,  -4'
$aPath[3] = 'Icons.dll, <= В этом случае индекс 0'
$aPath[4] = 'Icons.dll <= Тоже 0'
$aPath[5] = 'Icons.txt <= Тоже 0' ; Ошибочная запись

$sPattern = '((?:.*\\)?.*?\..*?dll)\D*+(\d*+)' 

For $i = 0 To UBound($aPath) - 1
    
   $fIcon=StringRegExpReplace($aPath[$i], $sPattern, '\1') 
   $iIcon=StringRegExpReplace($aPath[$i], $sPattern, '\2') 
   $sIcon=StringRegExpReplace($aPath[$i], $sPattern, '\1 | \2') 
   If Not @extended Then ContinueLoop
   ConsoleWrite("$sPath : "& $fIcon & @LF)
   ConsoleWrite("$iIcon : "& $iIcon & @LF)
   ConsoleWrite("FullString : "& $sIcon & @LF)
   ConsoleWrite('============================' & @LF)
Next

$sPattern = '((?:.*\\)?.*?\..*?(dll|txt))\D*+(\d*+)' 

; ...............................................
    
   $fIcon=StringRegExpReplace($aPath[$i], $sPattern, '\1') 
   $iIcon=StringRegExpReplace($aPath[$i], $sPattern, '\3') 
   $sIcon=StringRegExpReplace($aPath[$i], $sPattern, '\1 | \3')

$aTxt = StringRegExpReplace("X:\XXX. XXX\FILE.EXT", '(?:"?)+(.*\\.*?\..*?)(?:"?)+ .*$', "\1")
MsgBox(64, "", $aTxt)

$aTxt = StringRegExpReplace("X:\XXX. XXX\FILE.EXT", '(?:"?)+(.*\\.*?\..*?)(?:"?)+( .*)?$', "\1")
MsgBox(64, "", $aTxt)

$aTxt = StringRegExpReplace('"C:\SomeFolder\olololo.exe" "/U:C:\kakoy-to-bidlo-file.exe"', '("+?.*?\\[^"]+\.[^"]+"+?)( ?.+)?$', "\1")
MsgBox(64, "", $aTxt)

$aTxt = StringRegExpReplace('"C:\SomeFolder\olololo.exe" "/U:C:\kakoy-to-bidlo-file.exe"', '"+?(.*?\\[^"]+\.[^"]+)"+?( ?.+)?$', "\1")
MsgBox(64, "", $aTxt)