22 lines
569 B
Plaintext
22 lines
569 B
Plaintext
$ include "seed7_05.s7i";
|
|
include "osfiles.s7i";
|
|
|
|
const proc: makeDirectoryPath (in string: dirPath) is func
|
|
begin
|
|
makeParentDirs(dirPath);
|
|
if fileTypeSL(dirPath) <> FILE_DIR then
|
|
makeDir(dirPath);
|
|
end if;
|
|
end func;
|
|
|
|
const proc: main is func
|
|
begin
|
|
if length(argv(PROGRAM)) <> 1 then
|
|
writeln("usage: makeDirectoryPath path");
|
|
elsif succeeds(makeDirectoryPath(convDosPath(argv(PROGRAM)[1]))) then
|
|
writeln("Directory path now exists");
|
|
else
|
|
writeln("Failed to create directory path");
|
|
end if;
|
|
end func;
|