창조유저그룹-커즈닷컴

질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.

LIST ALL

Posted by 찌까니

2005-03-27 17:36:12, Hit : 3165

파일복사 소스좀 보시구 고쳐주세요

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=1087

만일(파일존재여부("c:\temp\.tif"));
{
파일복사해("c:\temp\.tif","d:\temp\");
}
아니면
{
문자창보여("파일이 존재하지 않습니다. 종료할께욧.");
}
끝내;

============================================================
위에 아주 허접한 소스입니다.
ㅎ시계.개체로 1초 단위로 확장자가 tif 파일 존재 여부를 확인한뒤 생성되면
d:\temp 폴더에 복사하는 것입니다. 그런데 자꾸 에러가 나네요...

에러지점은 6번째줄과 마지막줄..(끝내; 저거..ㅡ.ㅡ)

아니면 다음에 { 를 넣었는데 자꾸 블럭부분 짝이 안맞는다고 그래요...

문법을 몰라서 허접하게 했습니다만,,,

- 그리고, 3번째줄을 보시면 아시겠지만, c:\temp\.tif","d:\temp\ 했는데요...
파일명을 직접 지정해주지 않고 .tif 로 하닌까 복사를 못하더군요... 방법 없을까요?

그냥 그 파일명 그대로 지정한 확장자들은 모두 특정폴더에 저장한뒤
원래 폴더를 삭제하는 방법요...

추가로 ㅎ메모.창에 0000 파일을 00시00분00초에 복사하였습니다. 라고 문구까지
넣어서 계속 출력하고 싶은데 방법좀 갈켜주십시오... 간단할것 같은데
저에겐 쉽지 않네요

최재일 2005-03-27 PM 9:58:30


ㅎ리스트박스와 ㅎ메모를 창에 올려두시고.. ㅎ시계 객체 아래와 같은 명령어를 넣으세요~ 그럼 c:\temp 폴더에 있는 파일들을 모두 찾아 파일이 존재하면 [복사할폴더]변수에서 선언한 "d:\temp\로 복사가 될 것니다. ---------------------------------------------- 실수 : 수; 문자 : 문, 복사할폴더, 파일명; 수 := 0; 복사할폴더 := "d:\temp\"; 파일찾아(거짓, "c:\temp", "*.tif", 리스트박스0.내용); 반복 { 문 := 리스트박스0.내용.부분문자(수); 만일(파일존재여부(문)) { 파일명 := 문자복사(문, 문자길이(복사할폴더)+1, 문자길이(문)); 파일복사해(문, 복사할폴더 + 파일명); 메모0.내용.추가(문+"파일을 "+복사할폴더+"폴더로 "+시간을문(현재시간)+"에 복사하였습니다."); } 수 := 수 + 1; } 까지 (수 >= 리스트박스0.내용.줄수); ----------------------------------------------

최재일 2005-03-27 PM 10:00:15


메모0.내용.추가(문+"파일을 "+복사할폴더+"폴더로 "+시간을문(현재시간)+"에 복사하였습니다."); 이 명령어 아랫줄에.. 　파일삭제(문); 이 명령어하나 추가해주면 c:\temp에 있는 파일은 삭제를 하지요;;

찌까니 2005-03-28 PM 1:35:46


핫!! 감사합니다. 한번 해볼께요.ㅎㅎ

찌까니 2005-03-28 PM 2:11:47


앗! 감사합니다. 성공입니다. 그런데 몇가지 문제점이 있는데 도움좀 한번더 주셨음 감사하겠습니다. 제가 처음 실행했을땐, 시간은 1000 으로 했거든요 그랬더니 파일복사하고 바로 같은파일있다면서 에러가 뜨더군요..시간이 너무 짧아서 그렇것 같아 ㅎ시계. 시간 간격을 10000 으로 값으로 변경하니 잘 되네요...그런데 궁금한점이 있습니다. 파일삭제까지 잘 되긴 하는데요... 만약 d:\temp 에 파일을 붙여넣었는데 같은 파일이 있을경우 같은 파일이 있다면서 Y/N 묻는데 묻지않고 바로 덮어 씌우려면 어떻게 하면 되나요? 그리고 동시에 c:\temp 에 있는걸 d:\temp와 e:\temp에 두군데에 복사해 넣으려면 제가 해보려고 했는데 생각처럼 간단하지 않습니다. 어떤색을 하면 될까요???

최재일 2005-03-28 PM 5:36:30


파일복사해(문, 복사할폴더 + 파일명); 이 명령어의 바로 윗줄에 아래의 명령어를 삽입해보세요.. ----------------------------------------------- 만일(파일존재여부(복사할폴더 + 파일명)) { 파일삭제(복사할폴더 + 파일명);} ----------------------------------------------- 이렇게 하면 d:\temp\에 같은 파일이 있을경우 삭제하고 복사를 하게 되므로 덮어쓸꺼냐고 Y/N을 안묻게 되지요.. 그리고.. 맨 위 변수선언부 중... ----------------------------------------------- 문자 : 복사할폴더2; 복사할폴더2 := "e:\temp\"; ----------------------------------------------- 를 추가하시고.. 　파일복사해(문, 복사할폴더 + 파일명); 이 명령어 바로 아랫줄에.. ----------------------------------------------- 파일복사해(문, 복사할폴더2 + 파일명); ----------------------------------------------- 를 추가하시면.. c:\temp 에 있는걸 d:\temp와 e:\temp 두군데에 복사하게됩니다.. 원하시는게 맞는지?? ^^