tmpファイルが削除されない不具合の修正

[gikonavigoeson/gikonavi.git] / GikoSystem.pas

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 5d6600b..a180930 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -733,7 +733,7 @@ begin
        sl := TStringList.Create;
     TmpFileList := TStringList.Create;
        try
-       GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False);
+       GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, true);
 
         sl.BeginUpdate;
                sl.Add(FOLDER_INDEX_VERSION);