在Delphi7中,可以使用TDirectory类的CreateDirectory方法来新建文件夹。

首先,在程序中引入SysUtils单元,然后在需要新建文件夹的地方调用CreateDirectory方法,方法的参数为新建文件夹的路径。

例如,下面的代码演示了如何在Delphi7中新建一个名为"NewFolder"的文件夹:

uses
  SysUtils;

procedure CreateFolder;
var
  folderPath: string;
begin
  folderPath := 'C:\NewFolder';
  if not DirectoryExists(folderPath) then
    CreateDir(folderPath);
end;

在上述代码中,首先定义了一个名为folderPath的变量,用于保存新建文件夹的路径。然后通过DirectoryExists方法判断该路径是否已经存在文件夹,如果不存在,则调用CreateDir方法来创建新的文件夹。

请根据你的具体需求修改folderPath的值,将新文件夹的路径指定为你需要创建的路径

Delphi7 如何新建文件夹

原文地址: https://www.cveoy.top/t/topic/igp2 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录