|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.05.2007, 07:57 | #1 |
Пользователь
Регистрация: 22.04.2007
Сообщений: 31
|
как создать папку
как создать папку
|
10.05.2007, 08:08 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Каталог
CreateDir(const Dir: string): Boolean — создает новый каталог на диске.
MkDir(const S: string) — аналог функции CreateDir. Отличие в том, что в случае ошибки при создании каталога функция MkDir создает исключительную ситуацию. DeleteFile(const FileName: string): Boolean — удаляет файл с диска. DirectoryExists(const Directory: string): Boolean — проверяет, существует ли заданный каталог на диске. Пример: if DirectoryExists(ExtractFilePath(App lication.ExeName)+'Image')=false then CreateDir(ExtractFilePath(Applicati on.ExeName)+'Image'); |
10.05.2007, 20:28 | #3 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
Иногда нужно создать сразу несколько папок подряд, но функция CreateDir и API функции CreateDirectory, CreateDirectoryEx позволяют создать только одну папку т.е. ту папку которая самая последняя.
например, если нужно создать папку c:\papka1\podpapka1\podpapka3 при том что папки c:\papka1 или c:\papka1\podpapka1 не существует, то ничего не получится, т.е. эти функции позволяют создать папку только в существующей папке. Вот код функции которая создаёт папку. функции можно передать ЛЮБОЙ допустимый путь и она создаст его. Допустимость пути не проверяется, даже если путь недопусти, никакого исключения не будет, потому что используются API, следовательно потом можно получить код ошибки через GetLastError. Код:
|
08.06.2007, 21:47 | #4 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
|
11.06.2007, 11:46 | #5 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
Sorry что снова поднял тему =)
Делфи - идеальная среда для ленивых программистов =) ForceDirectories http://delphi.about.com/library/rtl/...irectories.htm
пыщь
|
11.06.2007, 14:13 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Я так уже несколько раз сам писал функции, а потом узнавал что в Delphi они есть
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
30.01.2009, 09:11 | #7 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Хм... Благодарю всех за позезную информацию...
А как проверить существует ли файл?.. И как можно изменять атрибуты файла...
I am the First of Cyber Evolution...
I am the First to Program your Future... |
30.01.2009, 09:17 | #8 | ||
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Цитата:
Код:
Цитата:
Код:
Всегда рад помочь!
Последний раз редактировалось Terran; 30.01.2009 в 09:20. |
||
30.01.2009, 09:41 | #9 | |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Благодарю...
Вот нашёл по названию функции "FileExists": Цитата:
И можно ли как-то изменять через Делфи права доступа к файлам и каталогам?.. (как умеет досовская программа "cacls")
I am the First of Cyber Evolution...
I am the First to Program your Future... |
|
30.01.2009, 11:22 | #10 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
А что значит "[Warning] Unit1.pas(59): Symbol 'faHidden' is specific to a platform" ..?
I am the First of Cyber Evolution...
I am the First to Program your Future... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать папку с текущей датой | Dorvir | Microsoft Office Excel | 1 | 16.07.2008 10:10 |
Как программно через delphi создать папку на диске? | VenMaster | Общие вопросы Delphi | 5 | 25.05.2008 21:09 |
создать папку в том месте откуда запущен exe | Stanislav | Общие вопросы Delphi | 1 | 22.11.2007 17:58 |
как создать папку | matus | Помощь студентам | 2 | 05.11.2007 22:19 |
определить папку | мандарин | Общие вопросы Delphi | 5 | 13.05.2007 17:20 |