Delphi创建多级目录与目录存在性判断

Delphi 的文件路径操作还挺省心的。要创建那种带好几个子文件夹的深层目录,用TDirectory.CreateDirectory就行,一步到位,还不怕漏建哪个。顺手还可以用TDirectory.Exists判断目录在不在,免得重复创建浪费资源。

'C:\Users\John\Documents\MyProject\SubFolder'这种路径时,Delphi 会自动检查每一层目录,不存在就帮你建出来,挺智能的。代码也不复杂,效率还不错。

判断目录存不存在,也就是一行代码搞定:TDirectory.Exists返回个布尔值,直接就能用。配合ShowMessage,用户提示也方便。

不过要注意哦,万一碰到磁盘权限问题或者空间不足啥的,CreateDirectory可是会抛异常的。所以建议你最好放在try...except里,保险一点。

除了TDirectory,Delphi 还有TFileTShell这些类,搭配起来用,文件系统相关的活儿基本能全包了。要是你写的是带文件管理功能的工具,熟练掌握这些还挺重要的。

如果你刚好在路径结构或者文件初始化,建议直接上手试试TDirectory,用起来顺手不说,还能少踩坑。

rar
.rar 预估大小:14个文件
folder
创建深层目录及判断目录是否存在 文件夹
file
Project1.exe 400KB
file
Project1.res 876B
file
Unit1.~dfm 2KB
file
Unit1.dfm 2KB
file
Project1.cfg 434B
file
Unit1.pas 1KB
file
Project1.dpr 188B
file
Project1.dof 2KB
file
Unit1.~pas 953B
folder
test1 文件夹
file
新建 文本文档.txt 2B
folder
test2 文件夹
file
新建 文本文档.txt 2B
folder
test3 文件夹
file
新建 文本文档.txt 2B
folder
新建文件夹 文件夹
file
新建 文本文档.txt 2B
folder
新建文件夹 文件夹
file
Unit1.dcu 5KB
rar 文件大小:175.36KB