【结贴】请问怎么创建目录，CreateDirectory**

shiyg

请问怎样创建目录，CreateDirectory

jiahaiminghr

试试这个：
function TMainForm.NewFolder: string;
var
  lDirectoryName, lDirectoryFileName: string;
begin
  Result := '';
  lDirectoryName := '新建文件夹';
  if not jsDialogs.InputQuery('创建文件夹', '请输入文件的名称', lDirectoryName) then
    exit;
  lDirectoryFileName := DestPath + lDirectoryName;
  FileSys.FileSystem.CreateDirectory(lDirectoryFileName);
  Result := lDirectoryFileName;
end;

shiyg

没有效果。FileSys.FileSystem.CreateDirectory('c:\Temp1'); 我是这样用的，跟踪调试，正常执行了，就是在c：下没有看到目录temp1

lixy

NameSpace: Business.System    ClassDelcare: Business.System.SysUtils
--------------------------------------------------------------------------------
static function CreateDir(Dir: string): Boolean;


2楼代码是用来在平台的虚拟文件系统中创建文件夹的。

shiyg

可以了，谢谢了，结贴吧