Q&A
- file을 copy하는반법좀...
안녕하세요...
저는 프로그램 에서 어느 폴더의 화일들을 다른 폴더로
카피를 하고 싶은데 워낙 초짜라서~~~~
많은 부탁드립니다...
그리고요... 설명이 없으면 저 하나도 모릅니다...그럼./
저는 프로그램 에서 어느 폴더의 화일들을 다른 폴더로
카피를 하고 싶은데 워낙 초짜라서~~~~
많은 부탁드립니다...
그리고요... 설명이 없으면 저 하나도 모릅니다...그럼./
2
COMMENTS
-
-
Ziker wrote:
> 안녕하세요 지커 입니다.
>
>
> Function CopyFile(Source,Target:String):Integer;
> Var
> RRead : Integer;
> SFile, TFile : Integer;
> Buffer : Packed Array [1..1024] of Byte;
> Begin
> If File_Size(Source) = 0 then
> Begin
> Result:= 3;
> Exit;
> End;
>
> Result:= 0;
> SFile:= FileOpen(Source, fmOpenRead);
> TFile:= FileCreate(Target);
>
> If SFile <= 0 then
> Begin
> Result:= 1;
> Exit;
> End;
> If TFile <= 0 then
> Begin
> Result:= 2;
> Exit;
> End;
>
> Try
> RRead:= FileRead(SFile, Buffer, 1024);
> While RRead > 0 Do
> Begin
> FileWrite(TFile, Buffer, RRead);
> RRead:= FileRead(SFile, Buffer, 1024);
> End;
>
> FileSetAttr(Target, FileGetAttr(Source));
> FileSetDate(TFile, FileGetDate(SFile));
> FileClose(TFile);
> FileClose(SFile);
> Except
> End;
> End;
>
>
>
> 초보 wrote:
> > 안녕하세요...
> > 저는 프로그램 에서 어느 폴더의 화일들을 다른 폴더로
> > 카피를 하고 싶은데 워낙 초짜라서~~~~
> > 많은 부탁드립니다...
> > 그리고요... 설명이 없으면 저 하나도 모릅니다...그럼./
(NOTICE) You must be logged in to comment on this post.
-
- 어린왕자
- •
- 2001.07.05 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.07.05 07:01Variant에 어떠한 값도 없으므로 그런 에러가 발생합니다. 비교하기 전에 먼저 값을 할당 해 보세요 v1 :...
-
- 정성훈
- 2001.07.05 02:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초
- •
- 2001.07.05 02:20
- 1 COMMENTS
- /
- 0 LIKES
-
박구남•2001.07.06 11:26저도 같은 질문을 델마당에 올린적이 있는데요 이곳에선 답변이 없네요 :) OS마다 틀리다고 하네요 win2k ...
-
- 어린왕자
- 2001.07.05 01:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.07.05 01:31
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 01:41안녕하세요 지커(김성규)입니다. TQuery 컴포넌트에 sql 를 작성할때 프라퍼티 창에서 해 주시든... 코...
-
초보•2001.07.05 03:53님께서 아래글중에 잘못 해석하신 부분이 있어 다시 수정합니다. 이래글중 편집을 님께선 Query해온 결과...
-
- kd
- •
- 2001.07.05 01:19
- 1 COMMENTS
- /
- 0 LIKES
-
반칙왕•2001.07.05 18:45kd wrote: > text 파일을 Image에 출력하고 싶은데 어떡하면 될지... > > 구현방법 부탁 드립니다. > ...
-
- 델초
- 2001.07.05 01:15
- 0 COMMENTS
- /
- 0 LIKES
-
- goldlee
- 2001.07.06 00:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 박병순
- 2001.07.05 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 최진영
- •
- 2001.07.05 00:41
- 1 COMMENTS
- /
- 0 LIKES
-
승추니•2001.07.05 02:59최진영 wrote: > 안녕하세요 > > 시작과 끝점의 x,y 좌표를 가지고 있는 > > 임의의 직성의 각도를 ...
-
- 김동민
- •
- 2001.07.05 00:03
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 00:20안녕하세요 지커(김성규)입니다... 자답을 하셨네요.. 축하 드립니다.. 다음과 같은 방법을 쓰셔두 됩...
-
김동민•2001.07.05 00:07파라미터로 폼을 넘겨줘서 해결했어요..^^ 그럼 이만... 김동민 wrote: > 지금 A라는 컴포넌트를 만들...
-
- 진짜초보
- •
- 2001.07.04 23:59
- 1 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 00:06안녕하세요 지커(김성규)입니다. 이 게시판에서 이전에 올라온 질문 내용의 답변을 발췌한 것입니다. ...
-
-
Ziker•2001.07.05 00:01안녕하세요 지커(김성규)입니다. 다음과 같이 하십시오. WinExec(PChar('COMMAND.COM /C ' + TmpDir)...
-
델초보•2001.07.05 01:22Ziker wrote: > 안녕하세요 지커(김성규)입니다. > > 다음과 같이 하십시오. > > WinExec(PChar('CO...
-
Ziker•2001.07.05 19:50안녕하세요 지커(김성규)입니다~~ 이론이론.. 안되신다구요? 헉.. 전 테스트 했을때 되길래 되는줄 알...
-
-
-
Ziker•2001.07.04 23:45안녕하세요 지커 입니다. 엑서스 바이올레이션 에러는.. 메모리 에러와 동일 하다고 할수 있는데, 특정...
-
-
- 델사랑
- •
- 2001.07.04 23:21
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.04 23:54안녕하세요 지커 입니다. 다음과 예제를 참조 하세요. procedure TForm1.Button1Click(Sender: T...
-
참이슬•2001.07.04 23:46TStringList를 사용하시면 편한데요..삽입 삭제등은.. var StrL:TStringList; begin StrL:TS...
-
-
- 크니
- 2001.07.04 21:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.07.04 21:15
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요... 저는 프로그램 에서 어느 폴더의 화일들을 다른 폴더로 카피를 하고 싶은데 워낙 초짜라서~~~~ 많은 부탁드립니다... 그리고요... 설명이 없으면 저 하나도 모릅니다...그럼./-
Ziker•2001.07.04 21:26안녕하세요 지커 입니다. Function CopyFile(Source,Target:String):Integer; Var RRead : Inte...
-
초보•2001.07.04 21:49Ziker wrote: > 안녕하세요 지커 입니다. > > > Function CopyFile(Source,Target:String):Integer;...
-
- 어린왕자
- 2001.07.04 20:52
- 0 COMMENTS
- /
- 0 LIKES
-
-
Ziker•2001.07.04 21:21안녕하세요 지커 입니다. 실제적으로 Database 에서 나는 에러는 아닌거 같구요 단순히 네트웍상의 퍼...
-
Function CopyFile(Source,Target:String):Integer;
Var
RRead : Integer;
SFile, TFile : Integer;
Buffer : Packed Array [1..1024] of Byte;
Begin
If File_Size(Source) = 0 then
Begin
Result:= 3;
Exit;
End;
Result:= 0;
SFile:= FileOpen(Source, fmOpenRead);
TFile:= FileCreate(Target);
If SFile <= 0 then
Begin
Result:= 1;
Exit;
End;
If TFile <= 0 then
Begin
Result:= 2;
Exit;
End;
Try
RRead:= FileRead(SFile, Buffer, 1024);
While RRead > 0 Do
Begin
FileWrite(TFile, Buffer, RRead);
RRead:= FileRead(SFile, Buffer, 1024);
End;
FileSetAttr(Target, FileGetAttr(Source));
FileSetDate(TFile, FileGetDate(SFile));
FileClose(TFile);
FileClose(SFile);
Except
End;
End;
초보 wrote:
> 안녕하세요...
> 저는 프로그램 에서 어느 폴더의 화일들을 다른 폴더로
> 카피를 하고 싶은데 워낙 초짜라서~~~~
> 많은 부탁드립니다...
> 그리고요... 설명이 없으면 저 하나도 모릅니다...그럼./