简单问题，散分

Question

在DELPHI里怎么创建一个空的文件夹

Answer 1

在SYSTEM UNIT 中
procedure mkdir(s : string); 创建目录
procedure getdir(d: byte;var s :string) ;得到当前目录
procedure chgdir(s :string) ;设定当前目录example;
var s :string;
begin
  getdir(2,s);//  chgdir(s);换目录为当前目录
  mkdir(yourdirname);
end; 
===========================
BOOL CreateDirectory(    LPCTSTR  lpPathName, // pointer to a directory path string
    LPSECURITY_ATTRIBUTES  lpSecurityAttributes // pointer to a security descriptor 
   );

Answer 2

ForceDirectories('d:\zzz\aaa\ddd\eee');  // 创建多级目录
CreateDir('d:\zzz\bbb');  // 只能创建一级目录，即d:\zzz必须存在

Answer 3

在SYSTEM UNIT 中
procedure mkdir(s : string); 创建目录
procedure getdir(d: byte;var s :string) ;得到当前目录
procedure chgdir(s :string) ;设定当前目录example;
var s :string;
begin
  getdir(2,s);//  chgdir(s);换目录为当前目录
  mkdir(yourdirname);
end;