问一下如何在程序目录自动创建文件夹啊？(20分)

猫

猫的骄傲

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #1

问一下如何在程序目录自动创建文件夹啊？
告诉我一下啊！！！
谢谢！！！

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #2

uses Dialogs;
begin

{$I-}
{ Get directory name from TEdit control }
MkDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot create directory', mtWarning, [mbOk], 0, mbOk)
else
MessageDlg('New directory created', mtInformation, [mbOk], 0, mbOk);
end;

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #3

ExtractfilePath(paramstr(0));
是程序所在目录
mkdir 就是创建目录的函数

 

L

liuchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #4

用ForceDirectories吧，可以创建多层目录

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-11

• #5

技术交流QQ：136293586
CreateDir('C:/我建立的文件夹');