For $i = 0 To UBound($folderarray) - 1
Local $sDay, $sMon, $sYear, $sPath = @ScriptDir & '\' & $folderarray[$i] , $aTmp
$aTmp = StringSplit(StringRegExpReplace($sPath, '^.*\\', ''), '.')
$sDay = $aTmp[1]
$sMon = $aTmp[2]
$sYear = $aTmp[3]
ConsoleWrite('$sPath: ' & $sPath & @LF)
ConsoleWrite('$sDay: ' & $sDay & @LF)
ConsoleWrite('$sMon: ' & $sMon & @LF)
ConsoleWrite('$sYear: ' & $sYear & @LF)
FileWrite (@ScriptDir & "\111111111.txt", $sPath & @CRLF & $sDay & @CRLF & $sMon & @CRLF & $sYear & @CRLF)
Next