mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
tree path fixed
This commit is contained in:
parent
400e80b116
commit
3d7539125c
1 changed files with 1 additions and 2 deletions
|
|
@ -5,7 +5,6 @@ IMPORT Strings, Out,
|
|||
PROCEDURE mkTreePath(VAR path: ARRAY OF CHAR);
|
||||
BEGIN
|
||||
vpkConf.getConfDir(path);
|
||||
Strings.Append(vpkSettings.vpkConfDir, path);
|
||||
Strings.Append('/', path);
|
||||
Strings.Append(vpkSettings.vpkTreeDir, path);
|
||||
END mkTreePath;
|
||||
|
|
@ -22,7 +21,7 @@ VAR
|
|||
BEGIN
|
||||
mkTreePath(treePath);
|
||||
Out.String("*****************************************"); Out.Ln;
|
||||
Out.String("TreePath = "); Out.String(treePath);
|
||||
Out.String("TreePath = "); Out.String(treePath); Out.Ln;
|
||||
(* Check tree directory if doesn't exist create*)
|
||||
dir.name := treePath;
|
||||
IF ~vpkFsHelper.Exists(dir) THEN
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue