:
: 안녕하십니까?
:
: 한꼬맹이입니다.
:
: 특정 폴더에 모든파일을 얻어오는 간단한 함수는 없습니다.
:
: 그래서 제가 그냥 한번 만들어 봤습니다. 밑에 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);
: }
: //---------------------------------------------------------------------------
:
: 그럼 도움되시길...........
:
:


감사해요 늘 고맙다는 생각 가지고 있습니다

정말 이런 사이트 없으면 어찌 할까하는 생각 많이 해요

눈이 많이 내렸네요  세상이 하얗군요~~

답변 늘 고맙습니다 ~~

수고 하세요