собственно заголовок[b]

CreateDirectory

А что то типа CreateDir в Дельфи не существует ???

Это то я понял - я не знаю как это пременить!... покажите на примере пжалста...

Код

CreateDirectory('C:\MyCoolDir', nil);

Цитата(RaIDeR @ 15.7.2005, 07:27)

Код CreateDirectory('C:\MyCoolDir', nil);

а что такое нил??? и че туда моно еще поставить?

Нет у меня дельфей сейчас под руками, поэтому точно сказать не могу
Но если делать на Builder'е что по сути то же самое

bool CreateDir(AnsiString Dir);

Description:

CreateDir creates a new directory. The return value is true if a new directory was successfully created, or false if an error occurred.

Цитата(I @ 15.7.2005, 08:29)

Цитата(RaIDeR @ 15.7.2005, 07:27) Код CreateDirectory('C:\MyCoolDir', nil); а что такое нил??? и че туда моно еще поставить?

CreateDirectory

Цитата

Syntax BOOL CreateDirectory(LPCTSTR lpszPath, LPSECURITY_ATTRIBUTES lpsa) Limitations: LPSECURITY_ATTRIBUTES is not supported; fails if non-null.

Код

procedure TDialogSave.bbNewFolderClick(Sender: TObject); begin  CreateDirectory(SaveFolders.Directory, nil); end;

не работает.

для наглядности вот:

Присоединённый файл ( Кол-во скачиваний: 19 )
 Untitled_1_copy.gif 15,06 Kb

Что такое SaveFolders.Directory ? - если это строка, то попробуй так:
PChar(SaveFolders.Directory)

http://vingrad.ru/DELPHI-DLP-002500

Код

procedure TDialogSave.bbNewFolderClick(Sender: TObject); begin  CreateDirectory(PChar(SaveFolders.Directory), nil); end;

не работает. смотрите скрин выше. там SaveFolder - это с папками эта фишка, она же TDirectoryListBox

Код

procedure TForm1.Button1Click(Sender: TObject); var   NewPath: String; begin   NewPath := DirectoryListBox1.Directory + '\MyCoolDir';   CreateDirectory(PChar(NewPath), nil) end;

поправте меня если че не так...

Код

function CheckDir(Dir: string): Boolean; // Если дириктория не существует, то она создается begin  Result := True;  if Length(Dir) = 0 then begin    Result:= False;    Exit;  end;  Dir := ExcludeTrailingPathDelimiter(Dir);  if (Length(Dir) < 3) and not DirectoryExists(Dir) then begin    Result:= False;  end;  if (Length(Dir) < 3) or DirectoryExists(Dir)      or (ExtractFilePath(Dir) = Dir) then     Result := CheckDir(ExtractFilePath(Dir)) and CreateDir(Dir) and DirectoryExists(Dir); end;

вот короче говоря код. у меня есть TDirectoryListBox и кнопка. алгоримт таков.
1. Получить путь из этого бокса (SaveDirectory.Directory)
2. Создать в нем папку с именем, которое будет заранее задано...
а) Необходимо проверить, чтобы введенное имя не существовало.

как это будет выглядеть???
Добавлено @ 09:14

Цитата(RaIDeR @ 15.7.2005, 08:04)

Код procedure TForm1.Button1Click(Sender: TObject); var   NewPath: String; begin   NewPath := DirectoryListBox1.Directory + '\MyCoolDir';   CreateDirectory(PChar(NewPath), nil) end;

а если эта директория есть??? че надо делать надо создавать такуюже, но в скобках (2), если есть (2) то (3) и так далее. но не писать де это все условиями??

юзай ForceDirectories

Чуточку подправил

Код

function ChkDir(DirName: String) : String; // Ф-ия вернёт имя не существующеё папки var   I: Integer;   NewDir: String; begin   Result := '';   NewDir := DirName;   for I := 0 to 1000 do     if DirectoryExists(NewDir) then       NewDir := DirName  + '(' + IntToStr(I) + ')'     else begin       Result := NewDir;       Break;     end; end; procedure TForm1.Button1Click(Sender: TObject); begin   CreateDirectory(PChar(ChkDir(DirectoryListBox1.Directory + '\MyCoolDir')), nil);  // Использование end;

p.s
Не проверял

Это сообщение отредактировал(а) RaIDeR - 15.7.2005, 09:50

Код

function CheckDir(Dir: string): Boolean; begin  Result := True;  if Length(Dir) = 0 then begin    Result:= False;    Exit;  end;  Dir := ExcludeTrailingPathDelimiter(Dir);  if (Length(Dir) < 3) and not DirectoryExists(Dir) then begin    Result:= False;    Exit;  end;  if (Length(Dir) < 3) or DirectoryExists(Dir)      or (ExtractFilePath(Dir) = Dir) then    Exit;  Result := CheckDir(ExtractFilePath(Dir)) and CreateDir(Dir) and DirectoryExists(Dir); end;

Код

procedure TForm1.FormCreate(Sender: TObject); begin  checkDir('C:\Program Files\Papka\');  checkDir('C:\Program Files\Papka\SubPapka'); end;

Добавлено @ 09:32
Когда то давал Alex

Это сообщение отредактировал(а) Femida - 15.7.2005, 09:31

Цитата(Alex @ 15.7.2005, 09:58)

http://vingrad.ru/DELPHI-DLP-002500

Ведь дал ссылку где все давно уже объяснено

Цитата(Alex @ 15.7.2005, 11:31)

Цитата(Alex @ 15.7.2005, 09:58) http://vingrad.ru/DELPHI-DLP-002500 Ведь дал ссылку где все давно уже объяснено

так я ведь её смотрел, но не много там понял...