Package UDF - Создание собственных PKR архивов

For $i = 1 To UBound($f_s) - 1
	...
	
	$array[$i - 1] = StringRegExpReplace($f_s[$i], '.*' & $folder_name[1], '')
	
	...
Next

For $i = 1 To UBound($array) - 1
    $n_f = _FO_PathSplit($array[$i])
    DirCreate($path_unpack & '\' & $folder_name[1] & $n_f[0])
Next

For $i = 1 To UBound($array) - 1

For $i = 1 To UBound($f_s) - 1

$array[$i - 1] = StringRegExpReplace($f_s[$i], '.*' & $folder_name[1], '')

$f_s = _FO_FileSearch($File, '*')

#Include <Package.au3>
#Include <WinAPIEx.au3>

Global $hPackage, $Data, $Root, $Path

$Root = FileSelectFolder('Select folder for packing.', '', 2, @ScriptDir)
If Not $Root Then
	Exit
EndIf

If _WinAPI_PathIsDirectoryEmpty($Root) Then
	MsgBox(16, 'Error', 'Folder is empty.')
	Exit
EndIf

$hPackage = _PK_Create(@ScriptDir & '\Test.pkr', '', 1)
If @Error Then
;	ConsoleWrite('Error: ' & @Error & @CR)
	Exit
EndIf

If Not _Enum($Root) Then
	; Error
	Exit
EndIf

_PK_DisplayPackage($hPackage, $Root)

_PK_Close($hPackage)

$Root = FileSelectFolder('Select folder for unpacking archive.', '', 2, @ScriptDir)
If Not $Root Then
	Exit
EndIf

$hPackage = _PK_Open(@ScriptDir & '\Test.pkr')
If @Error Then
;	ConsoleWrite('Error: ' & @Error & @CR)
	Exit
EndIf

$Data = _PK_EnumPackets($hPackage)
If @Error Then
;	ConsoleWrite('Error: ' & @Error & @CR)
	Exit
EndIf

For $i = 1 To $Data[0][0]
	$Path = _WinAPI_PathRemoveFileSpec($Data[$i][1])
	If (Not FileExists($Root & $Path)) And (Not DirCreate($Root & $Path)) Then
		; Error
		Exit
	EndIf
	If StringRight($Data[$i][1], 1) <> '\' Then
		_PK_ExtractPacketDataToFile($hPackage, $Data[$i][0], $Root & $Data[$i][1])
		If @Error Then
;			ConsoleWrite('Error: ' & @Error & ' - ' & $Root & $Data[$i][1] & @CR)
			Exit
		EndIf
	EndIf
Next

_PK_Close($hPackage)

ShellExecute($Root)

Func _Enum($sRoot, $sPath = '')

	Local $hSearch, $File, $Result = 1

	$hSearch = FileFindFirstFile($sRoot & '\' & $sPath & '\*')
	If $hSearch = -1 Then
		If @Error Then
			If $sPath Then
				_PK_AddPacket($hPackage, 0, 0, $sPath & '\')
				If @Error Then
;					ConsoleWrite('Error: ' & @Error & ' - ' & $sPath & '\' & @CR)
					Return 0
				EndIf
				Return 1
			Else
				Return 0
			EndIf
		Else
			Return 0
		EndIf
	EndIf
	While 1
		$File = FileFindNextFile($hSearch)
		If @Error Then
			ExitLoop
		EndIf
		If @Extended Then
			If Not _Enum($sRoot, $sPath & '\' & $File) Then
				$Result = 0
				ExitLoop
			EndIf
		Else
			_PK_AddPacketFromFile($hPackage, $sRoot & '\' & $sPath & '\' & $File, $sPath & '\' & $File, 1)
			If @Error Then
;				ConsoleWrite('Error: ' & @Error & ' - ' & $sPath & '\' & $File & @CR)
				$Result = 0
				ExitLoop
			EndIf
		EndIf
	WEnd
	FileClose($hSearch)
	Return $Result
EndFunc   ;==>_Enum