怎样建立一个目录？

Question

if findFirst('yourDir',faDirectory,searchRec)<>0 then 
mkDir('yourDir');
      
      

Answer 1

#include <Filectrl.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender){
  if (!DirectoryExists("c:\\temp"))
  {
    if (!CreateDir("C:\\temp"))
      throw Exception("Cannot create c:\\temp directory.");
  }
}

Answer 2

ifnot DirectoryExists('c:\temp') then
    ifnot CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');

Answer 3

判断目录是否存在用DirectoryExists，
创建单级目录用CreateDir，多级目录要用ForceDirectories。

Answer 4

The following example creates a directory 慍:\temp?if it does not already exist.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;{这是delphi版的}