| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Программное создание папки [D6, Win2k]

Laxer ©   (2003-06-06 14:18:00) 

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

---

VMcL   (2003-06-06 16:04:00) [1]

>Yanis © (06.06.03 15:44)

Уже есть SysUtils.ForceDirectories

---

Yanis   (2003-06-06 15:44:00) [2]

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


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;


---

Laxer   (2003-06-06 15:42:00) [3]

Спасибо.

---

aleksey_sv   (2003-06-06 14:23:00) [4]

MkDir("путь");

---

Наверх