自动创建文件夹(20分)

金

金少

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

请教, 如何创建这样的文件夹: 如我想在C盘根目录下有(C:/a/)
我想在该目录下创建类(C:/a/b/c/)
这样我们可以看到, 假如不可见, 我直接在edit中输入”D:/a/b/c/”
如果a, b, c 三个目录都不存在, 怎样用程序通用函数实现呢
用递归吗?

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

uses FileCtrl;

ForceDirectories('D:/a/b/c/');

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

同意zw84611

if Trim(Path)<>'' then
ForceDirectories(Path)

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #4

if DirectoryExists('D:/a/b/c') then
showmessage('已存在')
else
if ForceDirectories('D:/a/b/c')
then showmessage('成功')
else showmessage('无法创建');

 

金

金少

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

多人接受答案了。