图片保存

[byctiy]

if not DirectoryExists(fieldbyname('ssdq')) then //查找有没有这个目录
CreateDir(fieldbyname('ssdq')); //创建目录
end;
Image1.Picture.SaveToFile('c:\'+dm.CDS_GB_01.fieldbyname('ssdq').AsString +'\'+dm.CDS_GB_01.fieldbyname('gbkh').asstring+'.jpg');
dm.CDS_GB_01.FieldValues['photo']:=('c:\'+dm.CDS_GB_01.fieldbyname('ssdq').AsString +'\'+dm.CDS_GB_01.fieldbyname('gbkh').AsString+'.jpg');
我这个目的是 保存时 如果 c盘目录下没有 lsdq字段的目录 自动创建 然后保存图片上去
运行时出错 提示没有 ssdq的目录
怎么查找有没有这个目录 怎么自动增加
请教教

[LaoNing]

什么呀？lsdq ssdq

[byctiy]

写错了 两个是一样的