如何判断(检查)一个目录是否存在?(50分)

B

baoling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #1

如何判断(检查)一个目录是否存在?就如判断文件存不存在可用FileExists判断一样

 

T

thinknet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #2

DirectoryExists()

 

D

dfan2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #3

例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists(edit1.text) then
begin
showmessage('目录 '+edit1.Text+' 已经存在');
end
else
begin
CreateDir(edit1.Text);
showmessage('新建目录： '+edit1.Text);
end;
end;

 

笑

笑傲Delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #4

来晚了，看了半天就这个问题会，但是还是没有回答上。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #5

uses filectrl;刚查的[]

 

B

baoling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #6

多人接受答案了。