在Delphi中,可以使用SysUtils单元中的CreateDir函数来创建文件夹。下面是一个示例代码:
usesSysUtils;procedure CreateFolder(const folderName: string);beginif not DirectoryExists(folderName) thenCreateDir(folderName);end;// 示例用法varfolderName: string;beginfolderName := 'C:\MyFolder';CreateFolder(folderName);end;在上述示例中,我们首先检查文件夹是否已经存在(通过调用DirectoryExists函数),如果不存在,则调用CreateDir函数来创建文件夹。

