| 990 |
FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME |
FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME |
| 991 |
else |
else |
| 992 |
FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
| 993 |
+ BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INI_FILENAME; |
+ BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INI_FILENAME; |
| 994 |
|
|
| 995 |
if not FileExists(FileName) then |
if not FileExists(FileName) then |
| 996 |
Exit; |
Exit; |
| 1048 |
FileName := ExtractFilePath( FilePath ) |
FileName := ExtractFilePath( FilePath ) |
| 1049 |
else |
else |
| 1050 |
FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
| 1051 |
+ BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM; |
+ BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM; |
| 1052 |
if not GikoSys.DirectoryExistsEx(FileName) then |
if not GikoSys.DirectoryExistsEx(FileName) then |
| 1053 |
GikoSys.ForceDirectoriesEx(FileName); |
GikoSys.ForceDirectoriesEx(FileName); |
| 1054 |
FileName := FileName + FOLDER_INI_FILENAME; |
FileName := FileName + FOLDER_INI_FILENAME; |
| 1146 |
Result := FilePath |
Result := FilePath |
| 1147 |
else |
else |
| 1148 |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
| 1149 |
+ BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + SUBJECT_FILENAME; |
+ BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + SUBJECT_FILENAME; |
| 1150 |
end; |
end; |
| 1151 |
|
|
| 1152 |
// インデックスファイル名(folder.idx)取得(パス+ファイル名) |
// インデックスファイル名(folder.idx)取得(パス+ファイル名) |
| 1156 |
Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME |
Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME |
| 1157 |
else |
else |
| 1158 |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
| 1159 |
+ BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME; |
+ BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME; |
| 1160 |
end; |
end; |
| 1161 |
|
|
| 1162 |
// スレ立て送信URL |
// スレ立て送信URL |
| 1666 |
Result := FilePath |
Result := FilePath |
| 1667 |
else |
else |
| 1668 |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) |
| 1669 |
+ BBS2CH_LOG_FOLDER + ParentBoard.BBSID + PATH_DELIM + FileName; |
+ BBS2CH_LOG_FOLDER + PATH_DELIM + ParentBoard.BBSID + PATH_DELIM + FileName; |
| 1670 |
end; |
end; |
| 1671 |
|
|
| 1672 |
procedure TThreadItem.SetLastModified(d: TDateTime); |
procedure TThreadItem.SetLastModified(d: TDateTime); |