황진이 님이 쓰신 글 :
:
:
: 안녕하세요
:
: 또 들렸네요 ~~
:
: directory 안에 모든 파일을 얻을수 있는 방법이 없나요 ?
:
: 간단하게 하나의 함수라든가 하는거요  아무리 찾아봐도 도무지 알수가 없네요 ~~
:
:
: 고수님들 부탁해요 그 디렉토리 안에 어떤 파일이 들었는지 알고 싶어요
:
:
: 수고 하세요 ....~~
:

안녕하십니까?

한꼬맹이입니다.

특정 폴더에 모든파일을 얻어오는 간단한 함수는 없습니다.

그래서 제가 그냥 한번 만들어 봤습니다. 밑에 GetFileList()함수 입니다.

폼에다가 ListBox 하나 떨어뜨리시고 버턴 클릭 이벤트에다가 다음과 같이 코딩하세요...

void __fastcall GetFileList(AnsiString Dir, const int Attributes, TStrings* List)
{
  TSearchRec sr;

  if(Dir.AnsiPos("\\") == Dir.Length())
    Dir += "*.*";
  else
    Dir += "\\*.*";

  if (FindFirst(Dir, Attributes, sr) == 0){
    do{
      if ((sr.Attr & Attributes) == sr.Attr)
      {
        List->Add(sr.Name);
        Application->ProcessMessages();
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  GetFileList("c:\\Program Files", faAnyFile, ListBox1->Items);
}
//---------------------------------------------------------------------------

그럼 도움되시길...........