Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/DefaultFileManager.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by h677, Mon Jul 3 14:00:35 2006 UTC revision 1.2 by h677, Mon Jul 3 14:37:29 2006 UTC
# Line 79  begin Line 79  begin
79          if ( FileExists(fromPath) ) then begin          if ( FileExists(fromPath) ) then begin
80              // 配置先にあったら何もしない              // 配置先にあったら何もしない
81              if (not FileExists(toPath)) then begin              if (not FileExists(toPath)) then begin
82                    // 配置先のフォルダを生成する
83                    GikoSys.ForceDirectoriesEx(toPath);
84                  Windows.CopyFile( PChar(fromPath), PChar(toPath), False);                  Windows.CopyFile( PChar(fromPath), PChar(toPath), False);
85              end;              end;
86          end;          end;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26