配置先フォルダが存在しないとコピーできない不具合の修正

[gikonavigoeson/gikonavi.git] / DefaultFileManager.pas

diff --git a/DefaultFileManager.pas b/DefaultFileManager.pas
index 37e495e..6e63c30 100644 (file)
--- a/DefaultFileManager.pas
+++ b/DefaultFileManager.pas
@@ -79,6 +79,8 @@ begin
         if ( FileExists(fromPath) ) then 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);
                 Windows.CopyFile( PChar(fromPath), PChar(toPath), False);
             end;
         end;