Форум: "WinAPI";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
ВнизПрограммное создание папки Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c