简单的问题

Question

创建一个文件目录用什么函数

Answer 1

MkDir 命令 建立一子目录 
RmDir 函数 删除空的子目录

Answer 2

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;

Answer 3

DELPHI的帮助很好；看看；

Answer 4

如何创建目录树类　别:文件操作
procedure MakeDir(Dir: String);
  function Last(What: String; Where: String): Integer;
  var
    Ind : Integer;
  begin
    Result := 0;
    for Ind := (Length(Where)-Length(What)+1) downto 1 do
        if Copy(Where, Ind, Length(What)) = What then begin
           Result := Ind;
           Break;
        end;
  end;
 var
  PrevDir : String;
  Ind     : Integer;
 begin
  if Copy(Dir,2,1) <> ':' then
     if Copy(Dir,3,1) <> '\' then
        if Copy(Dir,1,1) = '\' then
           Dir := 'C:'+Dir
        else
           Dir := 'C:\'+Dir
     else
        Dir := 'C:'+Dir;  if not DirectoryExists(Dir) then begin
     // 如果目录不存在,取得上一个目录名
     Ind     := Last('\', Dir);        //  最后一个 '\'的位置
     PrevDir := Copy(Dir, 1, Ind-1);   //  上一个目录
     // 如果上一个目录不存在
     // 传递给此递归过程
     if not DirectoryExists(PrevDir) then
        MakeDir(PrevDir);
     // 在这里,上一个目录必须存在
     // 创建(in "Dir"; variable)目录
     CreateDir(Dir);
  end;
 end;