5,388
社区成员
发帖
与我相关
我的任务
分享怎样在Delphi中新建一子目录？（这简单的问题我都不会，惭愧）
请问怎样在Delphi中执行文件目录下新建一子目录？目录名由给定字符串s:String设定。
...全文
请发表友善的回复…
发表回复
Researcher 2002-02-27
- 打赏
- 举报
多谢各位！
joyhero 2001-07-25
- 打赏
- 举报
Windows API: CreateDir、CreateDirectory和CreateDirectoryEx
torble 2001-07-25
- 打赏
- 举报
同意 KendyChen()
delphi_user 2001-07-25
- 打赏
- 举报
function ForceDirectories(Dir: string): Boolean;
KendyChen 2001-07-25
- 打赏
- 举报
上面blackfiles(blackfiles)的回答不完整
应该是：s:=extractfiledir(application.exename); //获取执行文件所在的目录
s:=s+'\'+'目录名'; //指定所要建立的目录名
mkdir(s); //建立新的目录
应该是：s:=extractfiledir(application.exename); //获取执行文件所在的目录
s:=s+'\'+'目录名'; //指定所要建立的目录名
mkdir(s); //建立新的目录
taozc 2001-07-25
- 打赏
- 举报
if (not DirectoryExists(s)) then
if (not CreateDir(s)) then
begin
ShowMessage('创建目录('+s+')错误！');
exit;
end;
if (not CreateDir(s)) then
begin
ShowMessage('创建目录('+s+')错误！');
exit;
end;
飞翔的老虎 2001-07-25
- 打赏
- 举报
ForceDirectories
smile_and_smile 2001-07-21
- 打赏
- 举报
同意!
blackfiles 2001-07-21
- 打赏
- 举报
mkdir(s)
