음대성 wrote:

> 안녕하세요....

> FileExists 를 사용할경우 디렉토리 내에서의 화일검색은 알겠는데...

> 알리아스로 화일 존재 여부를 알수있는 방법은 없나요 ?

> 알려주십시요...........

/////////////////////////////////////////////////////////////

아래는 알리아스의 설정된 Params으로 구하는 예입니다.

말씀하신 내용중 Driver종류가 없는데요, 아래는 범용이 아닌(ODBC등은 제외된...)

것이므로 이런방법도 있음을 참조하시기바랍니다. uses에 Dbtables을 쓰십시요.

procedure TForm1.Button1Click(Sender: TObject);

var

AParams: TStringList;

Dir: string;

DbAlias, DriverName:string;

begin

//알리아스 존재 여부확인

DbAlias := Edit1.Text;

if not Session.IsAlias(DbAlias) then

begin

ShowMessage('Alias does not exist');

Exit;

end;

//알리아스의 Params확인

AParams := TStringList.Create;

Session.GetAliasParams(DbAlias,AParams);

//Memo1.Text := AParams.GetText;



//Driver종류에 따라 위치다름

DriverName := Session.GetAliasDriverName(DbAlias);

if DriverName = 'STANDARD' then

Dir := Copy(AParams.Strings[0],6,255)

else if DriverName = 'MSACCESS' then

Dir := Copy(AParams.Strings[0],15,255);



ShowMessage(Dir);

end;