delphi创建文件夹的有哪些方法
在Delphi中,可使用SysUtils
单元中的CreateDir
函数来创建文件夹。下面是一个示例代码:
uses
SysUtils;
procedure CreateFolder(const folderName: string);
begin
if not DirectoryExists(folderName) then
CreateDir(folderName);
end;
// 示例用法
var
folderName: string;
begin
folderName := 'C:MyFolder';
CreateFolder(folderName);
end;
在上述示例中,我们首先检查文件夹是否是已存在(通过调用DirectoryExists
函数),如果不存在,则调用CreateDir
函数来创建文件夹。
TOP