функция копирования папки

$folder1 = FileSelectFolder("Выберите папку", "")
DirCopy($folder1, "С:\Test", 1)

$folder1 = FileSelectFolder("Выберите папку", "")
Run('xcopy /y /e "'&$folder1&'" "C:\test\"','',@SW_HIDE)

$open = FileSelectFolder('','')
DirCopy($open,'C:\Test',1)

#include <file.au3>
$folder1 = FileSelectFolder("Выберите папку", "")
Dim $szDrive, $szDir, $szFName, $szExt
$TestPath = _PathSplit($folder1, $szDrive, $szDir, $szFName, $szExt)
DirCopy($folder1, "C:\Test\" & $TestPath[3], 1)

$TestPath = _PathSplit($folder1, $szDrive, $szDir, $szFName, $szExt)
$TestPath = ^ ERROR

$open = FileSelectFolder('','')
 $1=_PathSplitByRegExp($open)
DirCopy($open,'C:\' & $1,1)
Func _PathSplitByRegExp($sPath)
    If $sPath = "" Or (StringInStr($sPath, "\") And StringInStr($sPath, "/")) Then Return SetError(1, 0, -1)
    Local $aRetArray[8], $pDelim = ""
    If StringRegExp($sPath, '^(?i)([A-Z]:|\\)(\\[^\\]+)+$') Then $pDelim = "\"
    If StringRegExp($sPath, '(?i)(^.*:/)(/[^/]+)+$') Then $pDelim = "//"
    If $pDelim = "" Then $pDelim = "/"
    If Not StringInStr($sPath, $pDelim) Then Return $sPath
    If $pDelim = "\" Then $pDelim &= "\"
    $aRetArray = StringRegExpReplace($sPath, '.*' & $pDelim & '|\.[^.]*$', '')
    Return $aRetArray
EndFunc

$TestPath = _PathSplit ($folder1, $szDrive, $szDir, $szFName, $szExt)
$TestPath = ^ ERROR

#include <file.au3>

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Nikolay\Autoit\Скрипты_Наброски\test.au3"
D:\Nikolay\Autoit\???????_????????\test\test.au3 (168) : ==> Unknown function name.:
$TestPath = _PathSplit($folder1, $szDrive, $szDir, $szFName, $szExt)
$TestPath = ^ ERROR
>Exit code: 1    Time: 8.454

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Nikolay\Autoit\Скрипты_Наброски\test.au3"
C:\Program Files\AutoIt3\Include\file.au3 (47) : ==> "Func" statement has no matching "EndFunc".:
Func _FileCountLines($sFilePath)

>Exit code: 1    Time: 0.207