Not adding slash to filebase path
This commit is contained in:
parent
e41b676dc0
commit
873f63f886
|
@ -85,7 +85,7 @@ Begin
|
||||||
FBase.Name := BaseName;
|
FBase.Name := BaseName;
|
||||||
FBase.FTPName := strReplace(BaseName, ' ', '_');
|
FBase.FTPName := strReplace(BaseName, ' ', '_');
|
||||||
FBase.FileName := BaseTag;
|
FBase.FileName := BaseTag;
|
||||||
FBase.Path := RootDir + BaseTag;
|
FBase.Path := DirSlash(RootDir + BaseTag);
|
||||||
FBase.DefScan := strS2I(INI.ReadString(Header_FILEBONE, 'new_scan', '1'));
|
FBase.DefScan := strS2I(INI.ReadString(Header_FILEBONE, 'new_scan', '1'));
|
||||||
FBase.DispFile := INI.ReadString(Header_FILEBONE, 'dispfile', '');
|
FBase.DispFile := INI.ReadString(Header_FILEBONE, 'dispfile', '');
|
||||||
FBase.Template := INI.ReadString(Header_FILEBONE, 'template', 'ansiflst');
|
FBase.Template := INI.ReadString(Header_FILEBONE, 'template', 'ansiflst');
|
||||||
|
|
Loading…
Reference in New Issue