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.2 by h677, Mon Jul 3 14:37:29 2006 UTC revision 1.3 by h677, Mon Jul 3 14:53:44 2006 UTC
# Line 80  begin Line 80  begin
80              // 配置先にあったら何もしない              // 配置先にあったら何もしない
81              if (not FileExists(toPath)) then begin              if (not FileExists(toPath)) then begin
82                  // 配置先のフォルダを生成する                  // 配置先のフォルダを生成する
83                  GikoSys.ForceDirectoriesEx(toPath);                  GikoSys.ForceDirectoriesEx(
84                        ExtractFilePath(toPath));
85                  Windows.CopyFile( PChar(fromPath), PChar(toPath), False);                  Windows.CopyFile( PChar(fromPath), PChar(toPath), False);
86              end;              end;
87          end;          end;

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

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