创建文件目录报错,麻烦帮我看看

pgz_007 2008-09-09 03:17:46
如果不存在此目录就创建它:
if not DirectoryExists(path1) then
if not CreateDir(path1) then
raise Exception.Create('Cannot create '+path1);

但不存在的时候报错,没有这个目录,看来是没有自动创建目录啊,why?

...全文
29 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yuqianyi1974 2008-09-09
你用showmessage(path1);看看path1是什么内容
回复
yuqianyi1974 2008-09-09

procedure TForm1.Button5Click(Sender: TObject);
var
path1:string;
begin
path1:=trim(extractfilepath(application.ExeName)+'\'+'123');
if not DirectoryExists(path1) then
if not CreateDir(path1) then
raise Exception.Create('Cannot create '+path1);
end;


这样也好用啊!
回复
pgz_007 2008-09-09
我就是用的你那个啊,不过用的是变量而已。

gmSysPath是当前程序目录,daystr是当前日期的天数。我这是数据库每天备份的目录

path1:=trim(gmSysPath+'\'+daystr);

但当没有此目录时报错
回复
yuqianyi1974 2008-09-09
我试了好用的

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('d:\tmp') then
if not CreateDir('d:\tmp') then
raise Exception.Create('Cannot create '+'d:\tmp');

end;
回复
相关推荐
发帖
语言基础/算法/系统设计
创建于2007-08-02

1.6w+

社区成员

Delphi 语言基础/算法/系统设计
申请成为版主
帖子事件
创建了帖子
2008-09-09 03:17
社区公告
暂无公告