・いくつかのパス取得命令で FilePath が設定されている場合に正しいパスを返すように修正。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 69bb6fb..2cef86e 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -903,8 +903,11 @@ var
        ini: TMemIniFile;
        FileName: string;
 begin
-       FileName := ParentCategory.ParentBBS2ch.GetLogFolder
-                                               + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;
+       if Length( FilePath ) > 0 then
+       FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
+  else
+    FileName := ParentCategory.ParentBBS2ch.GetLogFolder
+              + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;
 
        if not FileExists(FileName) then
                Exit;
@@ -934,8 +937,11 @@ var
        ini: TMemIniFile;
        FileName: string;
 begin
-       FileName := ParentCategory.ParentBBS2ch.GetLogFolder
-                                               + BBSID + PATH_DELIM;
+       if Length( FilePath ) > 0 then
+       FileName := ExtractFilePath( FilePath )
+  else
+    FileName := ParentCategory.ParentBBS2ch.GetLogFolder
+              + BBSID + PATH_DELIM;
        if not GikoSys.DirectoryExistsEx(FileName) then
                GikoSys.ForceDirectoriesEx(FileName);
        FileName := FileName + FOLDER_INI_FILENAME;
@@ -984,8 +990,11 @@ 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
 function TBoard.GetFolderIndexFileName: string;
 begin
-       Result := ParentCategory.ParentBBS2ch.GetLogFolder
-                                       + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;
+       if Length( FilePath ) > 0 then
+       Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME
+  else
+    Result := ParentCategory.ParentBBS2ch.GetLogFolder
+            + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;
 end;
 
 // \83X\83\8c\97§\82Ä\91\97\90MURL