同意楼上的说法 但要引用单元:FileCtrl function DirectoryExists(Name: string): Boolean; 如果还不明白,就看帮助,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;
但要引用单元:FileCtrl
function DirectoryExists(Name: string): Boolean;
如果还不明白,就看帮助,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;