델맹 wrote:

> 실행화일 있는 디렉을..

> C:ProgrmaFileshooing 라고 치구요.

> 해당 파일이 있는곳은..

> C:ProgrmaFileshooingdata라고..

> data에 있는.. *.kkk 의 확장자를 가진 파일명을 모두 읽어들이려고 합니다.

> 어떻게 해야 할까요?



현재실행파일이 존재하는 디렉토리:

경로 = ExtractFilePath(Applicatio.Exename)

현재실행파일이 존재하는 하위 디렉토리:

경로 = ExtractFilePath(Applicatio.Exename)+'data'

가장쉬운방법은 디렉토리리스트콤포넌트를 화면에 놓고(실행시 안보이게 해도 됨)

거기에서 directory및mask를 이용하여 파일을 읽어 들이면 됩니다.

권민호 wrote:

> 델맹 wrote:

> > 실행화일 있는 디렉을..

> > C:ProgrmaFileshooing 라고 치구요.

> > 해당 파일이 있는곳은..

> > C:ProgrmaFileshooingdata라고..

> > data에 있는.. *.kkk 의 확장자를 가진 파일명을 모두 읽어들이려고 합니다.

> > 어떻게 해야 할까요?

>

> 현재실행파일이 존재하는 디렉토리:

> 경로 = ExtractFilePath(Applicatio.Exename)

> 현재실행파일이 존재하는 하위 디렉토리:

> 경로 = ExtractFilePath(Applicatio.Exename)+'data'

> 가장쉬운방법은 디렉토리리스트콤포넌트를 화면에 놓고(실행시 안보이게 해도 됨)

> 거기에서 directory및mask를 이용하여 파일을 읽어 들이면 됩니다.

>



저는 막 File~~모모하는 Api랑.. 파일찾는 루틴가지고 걸거적대고있었는데. --;

하하, 그런 쉬운 방법이 있었네요. Win31콤포를 넘 우습게 봤습니다. -_-

답변감사.. ^^

델맹 wrote:

> 권민호 wrote:

> > 델맹 wrote:

> > > 실행화일 있는 디렉을..

> > > C:ProgrmaFileshooing 라고 치구요.

> > > 해당 파일이 있는곳은..

> > > C:ProgrmaFileshooingdata라고..

> > > data에 있는.. *.kkk 의 확장자를 가진 파일명을 모두 읽어들이려고 합니다.

> > > 어떻게 해야 할까요?

> >

> > 현재실행파일이 존재하는 디렉토리:

> > 경로 = ExtractFilePath(Applicatio.Exename)

> > 현재실행파일이 존재하는 하위 디렉토리:

> > 경로 = ExtractFilePath(Applicatio.Exename)+'data'

> > 가장쉬운방법은 디렉토리리스트콤포넌트를 화면에 놓고(실행시 안보이게 해도 됨)

> > 거기에서 directory및mask를 이용하여 파일을 읽어 들이면 됩니다.

> >

>

> 저는 막 File~~모모하는 Api랑.. 파일찾는 루틴가지고 걸거적대고있었는데. --;

> 하하, 그런 쉬운 방법이 있었네요. Win31콤포를 넘 우습게 봤습니다. -_-

> 답변감사.. ^^

>



이렇게 빨리 보시다니 또하나 참고해보세요

var

DirInfo : TSearchRec;

r : integer;

s : string;

begin

r := FindFirst(ExtractFilePath(Application.ExeName)+'data*.*', FaAnyfile, DirInfo);

While r = 0 do

begin

if ((DirInfo.Attr and FaDirectory <> FaDirectory) and

(DirInfo.Attr and FaVolumeId <> FaVolumeID))

then

s := ExtractFilePath(Application.ExeName)+'data'+DirInfo.Name;

//물론 여기서 s는 파일이름이겠죠...

end;