신혜정 wrote:

> 특정 폴더에서 같은 속성의 파일들을 여러개에서 수십개까지...동시에 읽으려면..

> 쓰레드를 사용해야 겠죠?

> 근데...동시에 여러개의 파일을 읽어오는 방법을 모르겠습니다

> 물론...텍스트 파일은 아니구요..

> OLE로 오피스파일들을 여는 것이거든요..

>

> 도움을 부탁드려요



질문이 명확치 않습니다..

특정폴더에서 파일을 찾겠다는 것인지,,

OLE로여는게 문제인지, ^^;

손님 wrote:

> 신혜정 wrote:

> > 특정 폴더에서 같은 속성의 파일들을 여러개에서 수십개까지...동시에 읽으려면..

> > 쓰레드를 사용해야 겠죠?

> > 근데...동시에 여러개의 파일을 읽어오는 방법을 모르겠습니다

> > 물론...텍스트 파일은 아니구요..

> > OLE로 오피스파일들을 여는 것이거든요..

> >

> > 도움을 부탁드려요

>

> 질문이 명확치 않습니다..

> 특정폴더에서 파일을 찾겠다는 것인지,,

> OLE로여는게 문제인지, ^^;



OLE를 사용해서 엑셀이나 워드같은 문서 파일들을 오픈 하는 것입니다.

그 파일들은 특정 디렉토리에 들어있겠구요...

procedure TForm1.FindFile(FileName: String);

var

SearchRec: TSearchRec;

begin

FileList.Clear;

if FindFirst(fileName,faAnyFile,SearchRec) = 0 then begin

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then

FileList.Add(SearchRec.Name);

while (FindNext(SearchRec) = 0) do begin

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then

FileList.Add(SearchRec.Name);

end;

FindClose(SearchRec);

end;

end;



위의 소스는 특정 디렉토리에 파일을 찾는 부분에 관한 것입니다..

FilesList는 TStringList의 인스턴스이구여...

FileName 은 디렉터리를 포함한, 예)

FileName := 'C:Mydirectory*.Doc';



모 이런형태로 일단 리스트에 쌓아놓고,,

생각해보셔야 겠네여...

답이 안되는가...



OLE쪽은 책을 좀더 봐야 알겠네여...

그럼이만



메일주소를 안쓰셔서 메일이 안가네여... 쩝...