怎样检查一个目录是否存在？(10分)

D

del530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #1

如题。要检查服务器上一个目录是否存在，这个目录有可能只读的。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #2

Delphi帮助里面的例子。
uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('c:/temp') then
if not CreateDir('C:/temp') then
raise Exception.Create('Cannot create c:/temp');
end;

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #3

function DirectoryExists(Name: string): Boolean; - 指定文件夹是否存在
例：
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists('c:/d') then
showmessage('yes')
else
showmessage('no');
end;

 

D

del530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #4

多人接受答案了。