Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

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

 
Максим   (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.


 
Andy BitOff ©   (2004-07-03 17:48) [6]


>begin...end ©   (03.07.04 10:58) [4]


Вообщет-то да :)
Но я из хелпа скопировал даже не посмотрев.


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

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


 
Iconka ©   (2004-07-06 09:22) [8]

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



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.05 c
3-1087874804
SnapIn
2004-06-22 07:26
2004.07.18
Непонятная ошибка в MSSQL......


1-1088685832
Новенький
2004-07-01 16:43
2004.07.18
Проверка на изменения


8-1083745939
Denis
2004-05-05 12:32
2004.07.18
Jpeg Error #52 - что это означает?


14-1088334519
Vitalik
2004-06-27 15:08
2004.07.18
Новосибирску 111


11-1076874880
DDA
2004-02-15 22:54
2004.07.18
Canvas &amp; Transparent