・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / DefaultFileManager.pas

diff --git a/DefaultFileManager.pas b/DefaultFileManager.pas
index 6e63c30..7aee057 100644 (file)
--- a/DefaultFileManager.pas
+++ b/DefaultFileManager.pas
@@ -80,7 +80,8 @@ begin
             // \94z\92u\90æ\82É\82 \82Á\82½\82ç\89½\82à\82µ\82È\82¢
             if (not FileExists(toPath)) then begin
                 // \94z\92u\90æ\82Ì\83t\83H\83\8b\83_\82ð\90¶\90¬\82·\82é
-                GikoSys.ForceDirectoriesEx(toPath);
+                GikoSys.ForceDirectoriesEx(
+                    ExtractFilePath(toPath));
                 Windows.CopyFile( PChar(fromPath), PChar(toPath), False);
             end;
         end;