fileName :=(ExtractFilePath(paramstr(0)));
fileName :=fileName + 'A\B\C.TXT';
if not DirectoryExists(ExtractFileDir(fileName)) then ForceDirectories(ExtractFileDir(fileName));
//如ABC文件夹都不存在,则全部创建
12-05
675
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)