임양규 님이 쓰신 글 :
: 밑에 질문 했습니다만 답변 대로 안되서..다시 올립니다...
:
: 제가 만든 부분은 아래와 같구요...
:
:   TSearchRec sr;
:         AnsiString Path;
:         int iAttributes = faDirectory | faHidden;
:         if (FindFirst(Path, iAttributes, sr) == 0) {
:         do {
:                 if ((sr.Attr & faDirectory) == faDirectory) {
:                  if(sr.Name[1] != '.')
:                   DirectoryListBox1->Items->Add(sr.Name);
:         }
:       }while(FindNext(sr) == 0);
:       FindClose(sr);
:     }
:
:
: 아시는 분 손좀 봐주세요.
:
//--------------------------------------------------------
안녕하세요
잘 모르겠지만
AnsiString Path에서 해당 Path가 없네요..

OnChange이벤트에서
AnsiString Path = DirectoryListBox1->Directory+"\\*.*";

로 수정하시면 Item으로 받을 수 있을 것 같네요.
그럼 즐프하세요