Скачать: CL | DM;

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

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

:)

---

← →
Fay ©   (2006-04-13 19:01) [5]

2 kernel ©   (13.04.06 18:58) [4]
Странно как-то проверять наличие какой-либо директории в только что созданной.

---

← →
kernel ©   (2006-04-13 19:06) [6]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c