Создание не одной папки,а целого пути.

← →
OlegOren (2006-04-13 10:36) [0]

Возможно и поднималсь эта тема в форуме, но я не нашел.
Если эта темя есть просто дайте ссылку, если нет то помогите найти хорошее рашение.
Суть: фнк. CreateDir("C:\1\") - cjplftn yf lbcrt gfgre "1"
Вопрос: как создать петь "c:\1\2\3\" ?

← →
Старик (2006-04-13 10:44) [1]

ForceDirectories("c:\1\2\3\")

← →
Чапаев © (2006-04-13 10:46) [2]

ForceDirectories function
Creates a new directory, including the creation of parent directories as needed.

Unit

SysUtils

Category

file management routines

Delphi syntax:

function ForceDirectories(Dir: string): Boolean;

C++ syntax:

extern PACKAGE bool __fastcall ForceDirectories(AnsiString Dir);

Description

ForceDirectories creates a new directory as specified in Dir, which must be a fully-qualified path name. If the directories given in the path do not yet exist, ForceDirectories attempts to create them.

ForceDirectories returns true if it successfully creates all necessary directories, false if it could not create a needed directory.

Important: Do not call ForceDirectories with an empty string. Doing so causes ForceDirectories to raise an exception.

The FileCtrl unit (Windows only) also contains a ForceDirectories function. However, the FileCtrl version is deprecated, and the SysUtils version preferred, even if the code does not need to be cross-platform.

← →
OlegOren (2006-04-13 10:48) [3]

фенкс

← →
kernel © (2006-04-13 18:58) [4]

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;

:)

Да сам где-то "слизал" этот текст, проверил, вроде бы работает...

Создание не одной папки,а целого пути. Найти похожие ветки