Q&A
- 파일 복사(copy file) 문제입니다.
백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다.
파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까,
중간에 멈추네여...ㅠ,ㅠ
고수님들의 조언 부탁 드립니다.
procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
var
sr: TSearchRec;
begin
dmSalary.Destroy;
CreateDir(DateToStr(Now));
if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
begin
while FindNext(sr) = 0 do
begin
if sr.Size > 0 then
begin
if not CopyFile(sr.Name,'d:급여관리'+DateToStr(Now)+''+sr.Name) then
break;
end;
end;
FindClose(sr);
end;
dmSalary := TdmSalary.Create(self);
end;
Function TSalaryMainForm.CopyFile(FromFile,ToFile:String): Boolean;
Var
FromF, ToF: file;
{$IFDEF WIN32}
NumRead, NumWritten: Integer;
{$ELSE}
NumRead, NumWritten: Word;
{$ENDIF}
Buf: array[1..2048] of Char;
Begin
AssignFile(FromF, FromFile);
AssignFile(ToF, ToFile);
Try
FileMode := 0; {Sets Reset To ReadOnly}
Reset(FromF, 1);{ Record size = 1 }
FileMode := 2; {Sets Reset To ReadWrite}
Rewrite(ToF, 1);{ Record size = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
System.CloseFile(FromF);
System.CloseFile(ToF);
Result := True;
Except
On EInOutError Do
Begin
Result := False;
End;
Else Result := False;
End;
If Result = False Then
MessageDlg('다음 화일을 복사하는 중에 문제가 발생하였습니다 !! '+FromFile,
mtWarning, [mbOk], 0);
End;
파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까,
중간에 멈추네여...ㅠ,ㅠ
고수님들의 조언 부탁 드립니다.
procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
var
sr: TSearchRec;
begin
dmSalary.Destroy;
CreateDir(DateToStr(Now));
if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
begin
while FindNext(sr) = 0 do
begin
if sr.Size > 0 then
begin
if not CopyFile(sr.Name,'d:급여관리'+DateToStr(Now)+''+sr.Name) then
break;
end;
end;
FindClose(sr);
end;
dmSalary := TdmSalary.Create(self);
end;
Function TSalaryMainForm.CopyFile(FromFile,ToFile:String): Boolean;
Var
FromF, ToF: file;
{$IFDEF WIN32}
NumRead, NumWritten: Integer;
{$ELSE}
NumRead, NumWritten: Word;
{$ENDIF}
Buf: array[1..2048] of Char;
Begin
AssignFile(FromF, FromFile);
AssignFile(ToF, ToFile);
Try
FileMode := 0; {Sets Reset To ReadOnly}
Reset(FromF, 1);{ Record size = 1 }
FileMode := 2; {Sets Reset To ReadWrite}
Rewrite(ToF, 1);{ Record size = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
System.CloseFile(FromF);
System.CloseFile(ToF);
Result := True;
Except
On EInOutError Do
Begin
Result := False;
End;
Else Result := False;
End;
If Result = False Then
MessageDlg('다음 화일을 복사하는 중에 문제가 발생하였습니다 !! '+FromFile,
mtWarning, [mbOk], 0);
End;
4
COMMENTS
-
-
홍성락 wrote:
> 어피리 wrote:
> > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다.
> > 파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까,
> > 중간에 멈추네여...ㅠ,ㅠ
> > 고수님들의 조언 부탁 드립니다.
> >
> > procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
> > var
> > sr: TSearchRec;
> > begin
> > dmSalary.Destroy;
> > CreateDir(DateToStr(Now));
> > if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
> > begin
> > while FindNext(sr) = 0 do
> > begin
> > if sr.Size > 0 then
> > begin
> > if not CopyFile(sr.Name,'d:급여관리'+DateToStr(Now)+''+sr.Name) then
> > break;
> > end;
> > end;
> > FindClose(sr);
> > end;
> > dmSalary := TdmSalary.Create(self);
> > end;
> >
> > Function TSalaryMainForm.CopyFile(FromFile,ToFile:String): Boolean;
> > Var
> > FromF, ToF: file;
> > {$IFDEF WIN32}
> > NumRead, NumWritten: Integer;
> > {$ELSE}
> > NumRead, NumWritten: Word;
> > {$ENDIF}
> > Buf: array[1..2048] of Char;
> > Begin
> > AssignFile(FromF, FromFile);
> > AssignFile(ToF, ToFile);
> > Try
> > FileMode := 0; {Sets Reset To ReadOnly}
> > Reset(FromF, 1);{ Record size = 1 }
> > FileMode := 2; {Sets Reset To ReadWrite}
> > Rewrite(ToF, 1);{ Record size = 1 }
> > repeat
> > BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
> > BlockWrite(ToF, Buf, NumRead, NumWritten);
> > until (NumRead = 0) or (NumWritten <> NumRead);
> > System.CloseFile(FromF);
> > System.CloseFile(ToF);
> > Result := True;
> > Except
> > On EInOutError Do
> > Begin
> > Result := False;
> > End;
> > Else Result := False;
> > End;
> > If Result = False Then
> > MessageDlg('다음 화일을 복사하는 중에 문제가 발생하였습니다 !! '+FromFile,
> > mtWarning, [mbOk], 0);
> > End;
> /////////////////////////////////////////////////////////////
> 단순 파일을 복사식 백업이라면
> CopyFile(PChar(file_name), PChar(file_name2), False);쓰면안되나요.
> 또 폴더생성은 있는지 검사후에 한번만생성하면 될것 같은데요.
> if DirectoryExists(NEW_DIR)=False then
> ForceDirectories(NEW_DIR);
>
CopyFile(PChar(file_name), PChar(file_name2), False);
<=== 이런방식으로 코딩을 수정하였읍니다.
그래도 똑같은 위치에서 복사가 정지 되거든여...ㅠ.ㅠ
copyfile 문에 스트링 그리드 복사나 아님 DB에 기록 따위의
코딩으로 대체하면 끝까지 바로 수행 되는데, 파일 카피만 하면
5번째에서 멈추어 버립니다.
루틴에 문제가 있는지여??? 델파이 도움말 예제 그대로 베낀건데 ㅠ.ㅠ
한번만 도움을 주세여...
procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
> > var
> > sr: TSearchRec;
> > begin
> > dmSalary.Destroy;
> > CreateDir(DateToStr(Now));
> > if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
> > begin
> > while FindNext(sr) = 0 do
> > begin
> > if sr.Size > 0 then
> > begin
> > if not CopyFile(PChar(sr.Name),PChar('d:급여관리'+DateToStr(Now)''+sr.Name)) then
> > break;
> > end;
> > end;
> > FindClose(sr);
> > end;
> > dmSalary := TdmSalary.Create(self);
> > end;
-
어피리 wrote:
> 홍성락 wrote:
> > 어피리 wrote:
> > > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다.
> > > 파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까,
> > > 중간에 멈추네여...ㅠ,ㅠ
> > > 고수님들의 조언 부탁 드립니다.
> > >
> > > procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
> > > var
> > > sr: TSearchRec;
> > > begin
> > > dmSalary.Destroy;
> > > CreateDir(DateToStr(Now));
> > > if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
> > > begin
> > > while FindNext(sr) = 0 do
> > > begin
> > > if sr.Size > 0 then
> > > begin
> > > if not CopyFile(sr.Name,'d:급여관리'+DateToStr(Now)+''+sr.Name) then
> > > break;
> > > end;
> > > end;
> > > FindClose(sr);
> > > end;
> > > dmSalary := TdmSalary.Create(self);
> > > end;
> > >
> > > Function TSalaryMainForm.CopyFile(FromFile,ToFile:String): Boolean;
> > > Var
> > > FromF, ToF: file;
> > > {$IFDEF WIN32}
> > > NumRead, NumWritten: Integer;
> > > {$ELSE}
> > > NumRead, NumWritten: Word;
> > > {$ENDIF}
> > > Buf: array[1..2048] of Char;
> > > Begin
> > > AssignFile(FromF, FromFile);
> > > AssignFile(ToF, ToFile);
> > > Try
> > > FileMode := 0; {Sets Reset To ReadOnly}
> > > Reset(FromF, 1);{ Record size = 1 }
> > > FileMode := 2; {Sets Reset To ReadWrite}
> > > Rewrite(ToF, 1);{ Record size = 1 }
> > > repeat
> > > BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
> > > BlockWrite(ToF, Buf, NumRead, NumWritten);
> > > until (NumRead = 0) or (NumWritten <> NumRead);
> > > System.CloseFile(FromF);
> > > System.CloseFile(ToF);
> > > Result := True;
> > > Except
> > > On EInOutError Do
> > > Begin
> > > Result := False;
> > > End;
> > > Else Result := False;
> > > End;
> > > If Result = False Then
> > > MessageDlg('다음 화일을 복사하는 중에 문제가 발생하였습니다 !! '+FromFile,
> > > mtWarning, [mbOk], 0);
> > > End;
> > /////////////////////////////////////////////////////////////
> > 단순 파일을 복사식 백업이라면
> > CopyFile(PChar(file_name), PChar(file_name2), False);쓰면안되나요.
> > 또 폴더생성은 있는지 검사후에 한번만생성하면 될것 같은데요.
> > if DirectoryExists(NEW_DIR)=False then
> > ForceDirectories(NEW_DIR);
> >
>
> CopyFile(PChar(file_name), PChar(file_name2), False);
> <=== 이런방식으로 코딩을 수정하였읍니다.
> 그래도 똑같은 위치에서 복사가 정지 되거든여...ㅠ.ㅠ
> copyfile 문에 스트링 그리드 복사나 아님 DB에 기록 따위의
> 코딩으로 대체하면 끝까지 바로 수행 되는데, 파일 카피만 하면
> 5번째에서 멈추어 버립니다.
> 루틴에 문제가 있는지여??? 델파이 도움말 예제 그대로 베낀건데 ㅠ.ㅠ
> 한번만 도움을 주세여...
>
> procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
> > > var
> > > sr: TSearchRec;
> > > begin
> > > dmSalary.Destroy;
> > > CreateDir(DateToStr(Now));
> > > if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
> > > begin
> > > while FindNext(sr) = 0 do
> > > begin
> > > if sr.Size > 0 then
> > > begin
> > > if not CopyFile(PChar(sr.Name),PChar('d:급여관리'+DateToStr(Now)''+sr.Name)) then
> > > break;
> > > end;
> > > end;
> > > FindClose(sr);
> > > end;
> > > dmSalary := TdmSalary.Create(self);
> > > end;
/////////////////////////////////////////////////////////////////////////////
제가말씀드린건 단순파일카피라는것으로요 CopyFile함수가 사용자정의 함수가 아닌
내장함수사용을 이야기한겁니다,
또한, CopyFile함수 인자중 대상파일명(sr.Name)은 디렉토리명도 써주어야하구요...
아래 예제를 참조해보세요.
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
OLD_DIR, NEW_DIR : string;
begin
//dmSalary.Destroy;
//CreateDir(DateToStr(Now));
OLD_DIR := 'D:3D지반해석';
NEW_DIR := 'D:3D지반해석'+DateToStr(Now);
if DirectoryExists(OLD_DIR) then begin
if DirectoryExists(NEW_DIR)=False then //유닛에 Filectrl 선언
ForceDirectories(NEW_DIR);
if FindFirst(OLD_DIR + '*.*', faAnyFile, sr) = 0 then begin
repeat
if sr.Size > 0 then begin
CopyFile(PChar(OLD_DIR + '' + sr.Name),PChar(NEW_DIR + '' + sr.Name), False);
end;
until FindNext(sr) <> 0;
end;
FindClose(sr);
end;
//dmSalary := TdmSalary.Create(self);
end;
-
성공 했음다...^^
(NOTICE) You must be logged in to comment on this post.
-
- 어피리
- •
- 2001.09.19 22:54
- 4 COMMENTS
- /
- 0 LIKES
백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다. 파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까, 중간에 멈추네여...ㅠ,ㅠ 고수님들의 조언 부탁 드립니다. procedure TSalaryMainForm.BitBtn4Click(Send...-
홍성락•2001.09.20 03:09어피리 wrote: > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다. > 파일을 하나씩 복사할 ...
-
어피리•2001.09.21 19:13홍성락 wrote: > 어피리 wrote: > > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다. > > ...
-
홍성락•2001.09.21 20:35어피리 wrote: > 홍성락 wrote: > > 어피리 wrote: > > > 백업 디렉토리를 만들고 데이타를 전부 복사하...
-
어피리•2001.09.22 00:56성공 했음다...^^
-
- 철
- •
- 2001.09.19 21:55
- 4 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:10철 wrote: > 개발환경 : windows2000에서 오라클8i와 델파이 > 리스너도 제데로 떠있고 sql plus상에서 ...
-
철•2001.09.19 22:48쥐 > Error while trying to retrieve text for error > > ora-06401' > > 이러게 나오는 군요. > >...
-
쥐 <:()~•2001.09.20 01:03철 wrote: > 쥐 'oracle에 연결되어 있지 않다는 메시지가 나오는 군요 > > > 쥐 > 철 wrote: > >...
-
쥐 <:( )~•2001.09.19 23:04철 wrote: > 쥐 'oracle에 연결되어 있지 않다는 메시지가 나오는 군요 > > > 쥐 > 철 wrote: > >...
-
- 이기운
- •
- 2001.09.19 21:33
- 1 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:12이기운 wrote: > CD를 구입하여 드라이브를 실행했는데 MMSYSTEM281 파일이 손상됐는지 또는 지원드라이브...
-
- 아줌마
- •
- 2001.09.19 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.12.04 01:32새로알게된 사실인데.. c:winntsystem32 폴더에 registry 된 gdb 파일이 존재하고. 서버 작동시 c:wi...
-
- 홍성락
- 2001.09.19 20:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 왕초보
- •
- 2001.09.19 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.09.20 01:39저또한 같은 환경에서 사용하지만 별 문제는 없습니다. 이것저것 궁리하시기 보다 밀어버리고 새로 설치...
-
- 구롱이^^
- •
- 2001.09.19 20:43
- 2 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:18구롱이^^ wrote: > 폼안에 Grid,editbox,combo 와 같은 컴포넌트가 있는데요... > 폼을 리사이즈했을때 ...
-
구롱이~^^•2001.09.20 19:51답변 감사합니다. 그런데요...제가 질문한게 그리 단순한게 아닌거 같거든요...적어두 저같은 초짜가보기...
-
- nSe@L
- •
- 2001.09.19 20:32
- 1 COMMENTS
- /
- 0 LIKES
-
nSe@L•2001.09.19 21:02nSe@L wrote: > 안녕하세요? > > 다름이 아니라 MS-SQL Server의 Float 데이터를 읽어 올 때 델파이에...
-
- 종종 나그네~~~
- 2001.09.19 19:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 고양이
- •
- 2001.09.19 19:33
- 2 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•2001.09.20 11:09임프랍니다. 간단히 한마디로 말하면, 델파이와 C++Builder의 차이는 언어의 차이 이상도 이하도 아닙니...
-
이경문•2001.09.20 12:11어떤 분이 이런 엄청난 글을 올리나 했더니 bcbdn에 계시는 분이네요. 참으로 좋은 글입니다. 박지훈....
-
- 델초보
- •
- 2001.09.19 19:28
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.19 22:13델초보 wrote: > 스피드 버튼을 툴바위에 동적으로 생성을 하고 > 스피드 버튼을 클릭(마우스 왼쪽 버튼)...
-
- albireo
- 2001.09.19 18:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 장정호
- •
- 2001.09.19 17:42
- 2 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:33장정호 wrote: > 안녕하세요.. > > 카드단말기와 통신을 하려고 합니다. > > 왕초보라 시리얼 통신...
-
하동호•2001.09.19 19:16장정호 wrote: > 안녕하세요.. > 카드단말기와 통신을 하려고 합니다. > 왕초보라 시리얼 통신은 해본적...
-
- 배순곤
- 2001.09.19 16:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 넘버원
- 2001.09.19 09:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이3.0
- 2001.09.19 08:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 문상연
- 2001.09.19 07:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지컴
- •
- 2001.09.19 07:16
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.09.19 19:37이지컴 wrote: > > 안녕하세요... 또 물어보네요...! > > 테이블1,2,3,4가 있습니다. > > 테이...
-
- 몰디브
- •
- 2001.09.19 06:56
- 1 COMMENTS
- /
- 0 LIKES
-
나도 델초보•2001.09.20 10:40몰디브 wrote: > 안녕하세여 고수님들... > 한수 도움을 부탁드립니다. > > 출력내용은.. > > 매장...
-
- goodman
- •
- 2001.09.19 06:24
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.09.20 01:43TIniFiles Class를 사용하세요 goodman wrote: > 델파이를 처음으로 사용해봅니다. > 그래서 그런지...
> 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다.
> 파일을 하나씩 복사할 때는 문제가 엄는데, 한꺼번에 복사 하려니까,
> 중간에 멈추네여...ㅠ,ㅠ
> 고수님들의 조언 부탁 드립니다.
>
> procedure TSalaryMainForm.BitBtn4Click(Sender: TObject);
> var
> sr: TSearchRec;
> begin
> dmSalary.Destroy;
> CreateDir(DateToStr(Now));
> if FindFirst('d:급여관리Data*.*', faAnyFile, sr) = 0 then
> begin
> while FindNext(sr) = 0 do
> begin
> if sr.Size > 0 then
> begin
> if not CopyFile(sr.Name,'d:급여관리'+DateToStr(Now)+''+sr.Name) then
> break;
> end;
> end;
> FindClose(sr);
> end;
> dmSalary := TdmSalary.Create(self);
> end;
>
> Function TSalaryMainForm.CopyFile(FromFile,ToFile:String): Boolean;
> Var
> FromF, ToF: file;
> {$IFDEF WIN32}
> NumRead, NumWritten: Integer;
> {$ELSE}
> NumRead, NumWritten: Word;
> {$ENDIF}
> Buf: array[1..2048] of Char;
> Begin
> AssignFile(FromF, FromFile);
> AssignFile(ToF, ToFile);
> Try
> FileMode := 0; {Sets Reset To ReadOnly}
> Reset(FromF, 1);{ Record size = 1 }
> FileMode := 2; {Sets Reset To ReadWrite}
> Rewrite(ToF, 1);{ Record size = 1 }
> repeat
> BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
> BlockWrite(ToF, Buf, NumRead, NumWritten);
> until (NumRead = 0) or (NumWritten <> NumRead);
> System.CloseFile(FromF);
> System.CloseFile(ToF);
> Result := True;
> Except
> On EInOutError Do
> Begin
> Result := False;
> End;
> Else Result := False;
> End;
> If Result = False Then
> MessageDlg('다음 화일을 복사하는 중에 문제가 발생하였습니다 !! '+FromFile,
> mtWarning, [mbOk], 0);
> End;
/////////////////////////////////////////////////////////////
단순 파일을 복사식 백업이라면
CopyFile(PChar(file_name), PChar(file_name2), False);쓰면안되나요.
또 폴더생성은 있는지 검사후에 한번만생성하면 될것 같은데요.
if DirectoryExists(NEW_DIR)=False then
ForceDirectories(NEW_DIR);