Not adding slash to filebase path

This commit is contained in:
mysticbbs 2012-09-08 04:25:49 -04:00
parent e41b676dc0
commit 873f63f886
1 changed files with 1 additions and 1 deletions

View File

@ -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');