Программное создание папки

← →
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;

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