Q&A

  • [Component] DirectoryBox에서... 파일 폴더 구별...
안녕하세요 델전문가님...^^



오늘 아침 천둥 번개도 치고 장난이 아니엇는데... 12월의 겨울비라^^

넘 좋군...



질문이 있어요...

If FindFirst(lblDirPath.caption+'*.*', faAnyFile, FileSearch)=0 then begin

repeat

// to check the result

sName := FileSearch.Name;

sSize := IntToStr(FileSearch.size);



// to count the number.

lCnt := lCnt - 1;

If lCnt < 0 then begin

break;

end

else

begin

// to print the null character after checking all-file.

sName := '';

sSize := '';

end;



until (FindNext(FileSearch)<>0) ;



FindClose(FileSearch);

Showmessage('File Name : ' + sName + ', File Size :'+ sSize);

end;



이런식으로.. 파일을 가져오는 이렇게 가져 오면... file이름 순서대로 가져오더라구요..



PaintBox에 Windows API를 이용하여 컨테이너 박스의 내용를 그렸습니다.

TextOut를 가지고...

file Name과 file Size정도...

그런데...

sTmpName := FileSearch.Name;

sTmpSize := IntToStr(FileSearch.size);

이렇게 했더니...

file 이름 순서대로 가져 오더라구

폴더와 파일 로 구별해서 가져오는 방법이 있나요?

아니면 굳이 Size가 0인가 아닌가를 구별해서 가져와야 하나요?





마지막....

폴더와 파일 구별 ...



읽어주셔서 감사합니다.^^

- 델초보 RyanYun -





1  COMMENTS
  • Profile
    김명석 1999.12.16 21:51
    RyanYun wrote:

    > 안녕하세요 델전문가님...^^

    >

    > 오늘 아침 천둥 번개도 치고 장난이 아니엇는데... 12월의 겨울비라^^

    > 넘 좋군...

    >

    > 질문이 있어요...

    > If FindFirst(lblDirPath.caption+'*.*', faAnyFile, FileSearch)=0 then begin

    > repeat

    > // to check the result

    > sName := FileSearch.Name;

    > sSize := IntToStr(FileSearch.size);

    >

    > // to count the number.

    > lCnt := lCnt - 1;

    > If lCnt < 0 then begin

    > break;

    > end

    > else

    > begin

    > // to print the null character after checking all-file.

    > sName := '';

    > sSize := '';

    > end;

    >

    > until (FindNext(FileSearch)<>0) ;

    >

    > FindClose(FileSearch);

    > Showmessage('File Name : ' + sName + ', File Size :'+ sSize);

    > end;

    >

    > 이런식으로.. 파일을 가져오는 이렇게 가져 오면... file이름 순서대로 가져오더라구요..

    >

    > PaintBox에 Windows API를 이용하여 컨테이너 박스의 내용를 그렸습니다.

    > TextOut를 가지고...

    > file Name과 file Size정도...

    > 그런데...

    > sTmpName := FileSearch.Name;

    > sTmpSize := IntToStr(FileSearch.size);

    > 이렇게 했더니...

    > file 이름 순서대로 가져 오더라구

    > 폴더와 파일 로 구별해서 가져오는 방법이 있나요?

    > 아니면 굳이 Size가 0인가 아닌가를 구별해서 가져와야 하나요?

    >

    >

    > 마지막....

    > 폴더와 파일 구별 ...

    >

    > 읽어주셔서 감사합니다.^^

    > - 델초보 RyanYun -

    >

    >



    우선 하시려는 일이 읽을때 구별을 하는 것이냐

    아님 읽은 것이 화일이냐 디렉토리냐 구별하느냐에따라 구별됩니다.

    1, 읽을때 구별해서 읽기

    FindFirst함수의 파라미터중 2번째(Attr)을 구별해서 읽으시면 됩니다.

    자세한건 F1 Help참조 ^^

    2, 읽은 화일이 디렉토리인지 화일인지 구분...

    TSearchRec 데이타 타입을 찾보세요...

    자세한건 F1 Help참조..^^



    그럼 즐거운 시간되세요...