猫 猫的骄傲 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;
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:/我建立的文件夹');
