제가 어떤 폴더에 들어있는 파일을(몇개가 있는지 모르지만 파일 이름에 일정 포맷이
있는 텍스트 파일입니다.) 읽어서 그 내용과 파일 이름을 저장하려고 하는데, 폴더 이름
은 고정이나 그 안에 몇개의 파일이 있는지는 때마다 다릅니다. 어떻게 여러개의 파일을
읽어서 각각의 내용들을 저장할 수 있는지 알고 싶어요. 어떻게 폴더 안에 파일이 몇
개 있는지 알고, 그 파일을 어떻게 차례로 열수 있는지 알려주세요(파일 이름은 숫자로
되어있습니다.) 꼭 부탁드려요~ ㅠ_ㅠ
아래 소스를 참고하시고 델파이 도움말도 참고하시면 이해가 빠를것 같네요.
var
sDir1, sDir2: string;
sr1, sr2: TSearchRec;
done1, done2: integer;
begin
sDir1 := '파일이 있는 디렉토리명';
done1 := FindFirst(sDir1 + '*.*', faDirectory, sr1);
while done1 = 0 do
begin
sDir2 := GetDir + sr1.Name + '';
if (sr1.name <> '.') and (sr1.name <> '..') then
begin
done2 := FindFirst(sMapDir2 + '*.*', faAnyFile, sr2);
while done2 = 0 do
begin
if (sr2.name <> '.') and (sr2.name <> '..') then
begin
루틴 처리문
end;
done2 := FindNext(sr2);
end
FindClose(sr2);
end;
done1 := FindNext(sr1);
end;
FindClose(sr1);
델파이초보 wrote:
> 제가 어떤 폴더에 들어있는 파일을(몇개가 있는지 모르지만 파일 이름에 일정 포맷이
>
> 있는 텍스트 파일입니다.) 읽어서 그 내용과 파일 이름을 저장하려고 하는데, 폴더 이름
>
> 은 고정이나 그 안에 몇개의 파일이 있는지는 때마다 다릅니다. 어떻게 여러개의 파일을
>
> 읽어서 각각의 내용들을 저장할 수 있는지 알고 싶어요. 어떻게 폴더 안에 파일이 몇
>
> 개 있는지 알고, 그 파일을 어떻게 차례로 열수 있는지 알려주세요(파일 이름은 숫자로
>
> 되어있습니다.) 꼭 부탁드려요~ ㅠ_ㅠ