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

Вниз

Программное создание папки   Найти похожие ветки 

← →
Laxer   (2003-06-06 14:18) [0]

Здравствуйте уважаемые мастера, подскажите пожалуйста как программно создать папку по указанному пути.

---

← →
aleksey_sv ©   (2003-06-06 14:23) [1]

MkDir("путь");

---

← →
Laxer   (2003-06-06 15:42) [2]

Спасибо.

---

← →
Yanis ©   (2003-06-06 15:44) [3]

Эта функция создаёт только папку в существующей папке, создать например папку в нескольких других папках может вот эта функция:


Function CreateDirEx(Dir:String):Boolean;
Var I,L:Integer;
CurDir:String;
begin
IF ExcludeTrailingBackslash(Dir) = "" then exit;
Dir := IncludeTrailingBackslash(Dir);
L:=Length(Dir);
FOR I:=1 TO L do
begin
CurDir := CurDir + Dir[I];
IF Dir[I] = "\" then
begin
IF not DirectoryExists(CurDir) then
IF Not CreateDir(CurDir) then Exit;
end;
end;
Result := True;
end;


---

← →
VMcL ©   (2003-06-06 16:04) [4]

>Yanis © (06.06.03 15:44)

Уже есть SysUtils.ForceDirectories

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c