那如何建立符合目录命名但不存在的目录呢。
我想让目录目录检查和建立这些一起实现。
(我想实现对输入的一串字符串进行有效性检查,
if check(s) then
if exist(s) then
SetCurrentDir(s); //将该目录设为当前目录
else
begin
Create(s); //创建该目录
SetCurrentDir(s)
end
else
showmessage('Error')
)
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists('c:/') then showmessage('Ok');
if DirectoryExists('c:/windows') then showmessage('Ok');
if DirectoryExists('c:/windows/') then showmessage('Ok');
if DirectoryExists('g/abc/fdc') then showmessage('Ok')
else showmessage('No No No');
end;
s:string;
begin
s:=trim(s);
if length(s)=0 then exit;
if (DirectoryExists(s) then
showmessage('已存在')
else
if ForceDirectories(s) then showmessage('建立成功')
else showmessage('无法建立');