| 316 |
//テンポラリHTMLを削除 |
//テンポラリHTMLを削除 |
| 317 |
FileList := TStringList.Create; |
FileList := TStringList.Create; |
| 318 |
try |
try |
| 319 |
|
FileList.BeginUpdate; |
| 320 |
GetFileList(GetTempFolder, '*.html', FileList, False, True); |
GetFileList(GetTempFolder, '*.html', FileList, False, True); |
| 321 |
|
FileList.EndUpdate; |
| 322 |
for i := 0 to FileList.Count - 1 do begin |
for i := 0 to FileList.Count - 1 do begin |
| 323 |
DeleteFile(FileList[i]); |
DeleteFile(FileList[i]); |
| 324 |
end; |
end; |
| 548 |
|
|
| 549 |
FileList := TStringList.Create; |
FileList := TStringList.Create; |
| 550 |
FileList.Sorted := True; |
FileList.Sorted := True; |
| 551 |
|
FileList.BeginUpdate; |
| 552 |
TmpFileList := TStringList.Create; |
TmpFileList := TStringList.Create; |
| 553 |
TmpFileList.Sorted := True; |
TmpFileList.Sorted := True; |
| 554 |
|
TmpFileList.BeginUpdate; |
| 555 |
//IsLogFile用DATファイルリスト |
//IsLogFile用DATファイルリスト |
| 556 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False); |
| 557 |
|
FileList.EndUpdate; |
| 558 |
//前回異常終了時用Tmpファイルリスト |
//前回異常終了時用Tmpファイルリスト |
| 559 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False); |
| 560 |
|
TmpFileList.EndUpdate; |
| 561 |
|
|
| 562 |
// 重複を防ぐ |
// 重複を防ぐ |
| 563 |
Board.BeginUpdate; |
Board.BeginUpdate; |
| 564 |
Board.Sorted := True; |
Board.Sorted := True; |
| 804 |
TmpFileList := TStringList.Create; |
TmpFileList := TStringList.Create; |
| 805 |
TmpFileList.Sorted := true; |
TmpFileList.Sorted := true; |
| 806 |
try |
try |
| 807 |
|
TmpFileList.BeginUpdate; |
| 808 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
| 809 |
|
TmpFileList.EndUpdate; |
| 810 |
sl.BeginUpdate; |
sl.BeginUpdate; |
| 811 |
sl.Add(FOLDER_INDEX_VERSION); |
sl.Add(FOLDER_INDEX_VERSION); |
| 812 |
|
|
| 3622 |
if DirectoryExists( GikoSys.Setting.GetBoardDir ) then begin |
if DirectoryExists( GikoSys.Setting.GetBoardDir ) then begin |
| 3623 |
BoardFileList := TStringList.Create; |
BoardFileList := TStringList.Create; |
| 3624 |
try |
try |
| 3625 |
|
BoardFileList.BeginUpdate; |
| 3626 |
GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True ); |
GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True ); |
| 3627 |
|
BoardFileList.EndUpdate; |
| 3628 |
for k := BoardFileList.Count - 1 downto 0 do begin |
for k := BoardFileList.Count - 1 downto 0 do begin |
| 3629 |
if AnsiCompareText(ExtractFileExt(BoardFileList[ k ]), '.bak') = 0 then |
if AnsiCompareText(ExtractFileExt(BoardFileList[ k ]), '.bak') = 0 then |
| 3630 |
BoardFileList.Delete(k); |
BoardFileList.Delete(k); |