c:\ 하위에 무슨 디렉토리가 있는지 검색하는 방법좀 알려주세요~!

 

        DirName :=  'c:\*.*'

        if Not DirectoryExists(DirName) then
        begin
             TempDir := FindFirst( DirName , faDirectory,srData);
             while lsvTempDir = 0 do begin

                   showmessage(srData.FindData.cFileName);
                   lsvTempDir := FindNext(srData);
             end;

        end;

 

디렉토리는 안나오고 화일들만 나오네요?

디렉토리 이름 나오게 하려면 어떻게 해야 되나요?