・ファイルパスを生成する時にデリミタが入っていなかったバグを修正。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 47b14bc..084cdd9 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -990,7 +990,7 @@ begin
                FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
        else
                FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
-                                                       + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;
+                                                       + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;
 
        if not FileExists(FileName) then
                Exit;
@@ -1048,7 +1048,7 @@ begin
                FileName := ExtractFilePath( FilePath )
        else
                FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
-                                                       + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM;
+                                                       + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM;
        if not GikoSys.DirectoryExistsEx(FileName) then
                GikoSys.ForceDirectoriesEx(FileName);
        FileName := FileName + FOLDER_INI_FILENAME;
@@ -1146,7 +1146,7 @@ begin
                Result := FilePath
        else
                Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
-                                               + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + SUBJECT_FILENAME;
+                                               + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + SUBJECT_FILENAME;
 end;
 
 // \83C\83\93\83f\83b\83N\83X\83t\83@\83C\83\8b\96¼(folder.idx)\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
@@ -1156,7 +1156,7 @@ begin
                Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME
        else
                Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
-                                               + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;
+                                               + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;
 end;
 
 // \83X\83\8c\97§\82Ä\91\97\90MURL
@@ -1666,7 +1666,7 @@ begin
                Result := FilePath
        else
                Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
-                                               + BBS2CH_LOG_FOLDER + ParentBoard.BBSID + PATH_DELIM + FileName;
+                                               + BBS2CH_LOG_FOLDER + PATH_DELIM + ParentBoard.BBSID + PATH_DELIM + FileName;
 end;
 
 procedure TThreadItem.SetLastModified(d: TDateTime);