需要一些帮助，在创建功能，可以创建文件夹递归与给定的路径：
C:\TestFolder\Another\AndAnother
字符串Delphi 函数MkDir返回IOerror = 3。
MkDir('C:\TestFolder\Another\AndAnother');
型
wb1gzix01#
使用
ForceDirectories('C:\TestFolder\Another\AndAnother');
字符串(This是一个标准的RTL函数，可以在SysUtils.pas中找到。因此，您不需要创建自己的函数，尽管这并不困难。）
bpzcxfmw2#
SysUtils现在已经过时了，ForceDirectories也不知道备份！自从 Delphi XE 7（或者更早？）以来，有一个新的库叫做IOUtils。IOUtils是跨平台兼容的和可感知的。
function ForceDirectories(FullPath: string): Boolean; // Works with UNC paths begin TDirectory.CreateDirectory(FullPath); Result:= DirectoryExists(FullPath); end;
字符串注意：该函数来自Delphi LightSaber库。那里还有其他几个类似的I/O函数（如ListFilesOf（Folder））。
llycmphe3#
在“folder #1”TDirectory.copy（“folder #1”，“folder #2”）中创建“folder #2“;并观看乐趣。
3条答案
按热度按时间wb1gzix01#
使用
字符串
(This是一个标准的RTL函数，可以在SysUtils.pas中找到。因此，您不需要创建自己的函数，尽管这并不困难。）
bpzcxfmw2#
SysUtils现在已经过时了，ForceDirectories也不知道备份！
自从 Delphi XE 7（或者更早？）以来，有一个新的库叫做IOUtils。
IOUtils是跨平台兼容的和可感知的。
字符串
注意：该函数来自Delphi LightSaber库。那里还有其他几个类似的I/O函数（如ListFilesOf（Folder））。
llycmphe3#
在“folder #1”TDirectory.copy（“folder #1”，“folder #2”）中创建“folder #2“;并观看乐趣。