Как программно создать и удалить папку?

← →
Максим (2004-07-03 06:42) [0]

← →
TUser © (2004-07-03 07:16) [1]

MkDir, ForceDirectories

← →
армен (2004-07-03 09:32) [2]

А пример если можно

← →
Andy BitOff © (2004-07-03 09:45) [3]

А в справке посмотреть сложно?

MkDir
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;

ForceDirectories
This example uses a label and a button on a form. When the user clicks the button, all the directories along the specified path that don"t exist are created. The results are reported in the caption of the label: procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := "C:\APPS\SALES\LOCAL"; if ForceDirectories(Dir) then Label1.Caption := Dir + " was created" end;

← →
begin...end © (2004-07-03 10:58) [4]

> [3] Andy BitOff © (03.07.04 09:45)

> MkDir

... {$I+} end;

Весьма желательно :)

← →
Cardinal © (2004-07-03 15:16) [5]

А можно CreateDirectory и RemoveDirectory.

← →
Максим (2004-07-06 08:49) [7]

Мужики не получается ни RemoveDir ни ForceDirectories. Мне надо, чтобы удалялась конкретная папка с содержащимися в ней файлами.

Может нужно в начале удалить файлы, а потом папку?

Как программно создать и удалить папку? Найти похожие ветки