请问师兄们用Delphi怎么建立文件夹

Question

虽然只有2分
mkdir(dirname)
就行了

Answer 1

test:=GetCurrentDir();  //获取当前目录；
if (test[Length(test)]<>'\') then test:=test+'\';
if (not DirectoryExists(test+'new\')) then CreateDir(test+'new\')

Answer 2

use CreateDir function:
  if not DirectoryExists(edtDirName.Text) then
  begin
    if MessageBox(form1.handle,'指定的文件夾不存在. 現在創建?','Confirm',MB_ICONASTERISK+MB_YESNO) = idNo then exit;
    if not CreateDir(edtDirName.Text) then
      raise Exception.Create('Cannot create '+edtDirName.Text)
    else
    begin
      DirectoryListBox1.Directory := edtDirName.Text;
      result := true;
    end;
  end;