5,387
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
dongliu 2003-12-25
- 打赏
- 举报
同意
chinajia 2003-12-25
- 打赏
- 举报
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;
begin
if not DirectoryExists('c:\temp') then
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create c:\temp');
end;
reedseutozte 2003-12-25
- 打赏
- 举报
Determines whether a specified directory exists.
Unit
FileCtrl
Category
file management routines
function DirectoryExists(Name: string): Boolean;
Description
Call DirectoryExists to determine whether the directory specified by the Name parameter exists. If the directory exists, the function returns True. If the directory does not exist, the function returns False.
If a full path name is entered, DirectoryExists searches for the directory along the designated path. Otherwise, the Name parameter is interpreted as a relative path name from the current directory.
Unit
FileCtrl
Category
file management routines
function DirectoryExists(Name: string): Boolean;
Description
Call DirectoryExists to determine whether the directory specified by the Name parameter exists. If the directory exists, the function returns True. If the directory does not exist, the function returns False.
If a full path name is entered, DirectoryExists searches for the directory along the designated path. Otherwise, the Name parameter is interpreted as a relative path name from the current directory.
