File Splitter

[Carldric Clement]

Originally Posted by Razor12911

It is done, I'll just need a translated message for this:

Merging=Merging %1... (This might take a while)

The only problem is that it is not tested because I edited the script via notepad(I don't have a PC)

@Carldric
Show me how you used Merger function

[Simorq]

Originally Posted by Razor12911

Inno Setup Usage

function Splitter(OriginalFile: String; SplitSize: Integer):Boolean;
var
ResultCode: Integer;
begin
if FileExists(ExpandConstant('{tmp}\Split.exe')) = False then
ExtractTemporaryFile('Split.exe');
Result:=Exec(ExpandConstant('{tmp}\Split.exe'), 's "' + ExpandConstant(OriginalFile) + '" "' + IntToStr(SplitSize) + '"', '',
SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

function Merger(SplitFile, OriginalFile: String):Boolean;
var
ResultCode: Integer;
begin
if FileExists(ExpandConstant('{tmp}\Split.exe')) = False then
ExtractTemporaryFile('Split.exe');
Result:=Exec(ExpandConstant('{tmp}\Split.exe'), 'm "' + ExpandConstant(SplitFile) + '" "' + ExpandConstant(OriginalFile) + '"', '',
SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

Not Work
Please Help

[78372]

@Everyone The largest split size for any file is 2047 MB, so don't expect it to work for spliting files to fit in a dvd5 or something that big in size.

[Gupta]

try this one out
should split and merge fine for more than 1000TB of data sets
command syntax is same as Razor's one check post #1