阅读量:2
在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
函数来创建文件夹。