delphi 如何创建文件夹

Posted 2023-04-01

forcedirectories和CreateDirectory都能创建文件ForceDirectories可以创建多层目录.如果你创建一个目录为c:\mymusic\music如果你的C盘不存在一个叫mymusic的文件夹的话程序会自动创建，函数执行的结果是，创建了两个文件夹，mymusic和music，music为mymusic的子文件夹.CreateDirectory只能创建一个文件夹，如果mymusic不存在，则反回创建music文件夹失败！procedure TMain.WriteVPTXT(str:string);varMytextFile : TextFile;tempstr : string;SysTime: TsystemTime;begintryGetLocalTime(SysTime);//AssignFile(MyTextFile,'D:\delphi\delphitest\time.ini');if not DirectoryExists('D:\Test') thenCreateDirectory('D:\Test',nil); //创建单个目录// forcedirectories ('D:\Test'); //创建多层目录tempstr:='D:\Test\'+inttostr(Systime.wYear)+inttostr(systime.wMonth)+inttostr(systime.wDay)+'.txt';AssignFile(MyTextFile,tempstr);if not fileExists(tempstr) then ReWrite(MyTextFile) else Append(MyTextFile); 参考技术A ForceDirectories('D:\新文件夹');
或md('D:\新文件夹');
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('D:\bnabinge') then
begin
ForceDirectories('D:\bnabinge');
end
else
begin
Messagebox(Handle,'文件夹已存在?','警告', MB_ICONERROR);
abort;
end;
end;