Delphi 判断文件夹是否存在+创建文件夹

RAD Studio 10.2.3 测试√

---

var
  mPath: string;
begin
  // 判断路径下的文件是否存在
  mPath:=ExtractFilePath(Paramstr(0))+'Temp\';
  if not DirectoryExists(mPath) then
    // 创建文件夹
    ForceDirectories(mPath);
end;

---

一点点笔记，以便以后翻阅。