红 红金 Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-07 #1 我的数据表（SQL Server）每添加一条记录就要在 硬盘上新建一个相应的文件夹。怎么做？？？
R Rover Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-07 #3 uses Dialogs; begin {$I-} { Get directory name from TEdit control } MkDir(Edit1.Text); if IOResult <> 0 then MessageDlg('Cannot create directory', mtWarning, [mbOk], 0) else MessageDlg('New directory created', mtInformation, [mbOk], 0); 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) else MessageDlg('New directory created', mtInformation, [mbOk], 0); end;
L li_tj Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-07 #4 直接用API函数 CreateDirectory不就行了。
