1.6w+
社区成员
- 全部
创建文件目录报错，麻烦帮我看看
如果不存在此目录就创建它：
if not DirectoryExists(path1) then
if not CreateDir(path1) then
raise Exception.Create('Cannot create '+path1);
但不存在的时候报错，没有这个目录，看来是没有自动创建目录啊，why？
if not DirectoryExists(path1) then
if not CreateDir(path1) then
raise Exception.Create('Cannot create '+path1);
但不存在的时候报错，没有这个目录，看来是没有自动创建目录啊，why？
...全文
当前发帖距今超过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);
但当没有此目录时报错
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;
