请问Delphi下边如何新建一个文件夹？

Question

有效立即给分

Answer 1

if not DirectoryExists('D:\temp') then ForceDirectories('D:\temp');

Answer 2

ForceDirectories('D:\新文件夹');
或md('D:\新文件夹');

Answer 3

createDir(const Dir:string):Boolean

Answer 4

if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'images') then
    CreateDir(ExtractFilePath(Application.ExeName) + 'images');

Answer 5

ForceDirectories('新文件夹');

Answer 6

好吧，谢谢各位，因为我没搞过delphi，我也是代人发问，
确认以后马上结贴，谢谢

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('D:\bnabinge') then
 begin
  ForceDirectories('D:\bnabinge');
  end
  else
  begin
    Messagebox(Handle,'文件夹已存在?','警告', MB_ICONERROR);
    abort;
  end;end;