|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как создать папку?
Привет народ!!!У меня такой впросик назрел....
А как программно можно создать папку на винте для последуюющей записи в нее файлов??? Всем заранее огромное спасибо!!! |
#2
|
||||
|
||||
CreateDirectory(
LPCTSTR lpPathName, // pointer to a directory path string LPSECURITY_ATTRIBUTES lpSecurityAttributes // pointer to a security descriptor ); типа так наверно CreateDirectory("C:\MyDir", 0); |
#3
|
|||
|
|||
Спасибо!!!!Ща буду пробовать!!!!!
|
#4
|
|||
|
|||
Спасибо!!!!Ща буду пробовать!!!!!
|
#5
|
|||
|
|||
if not DirectoryExists('c:\MyDir') then
ForceDirectories('c:\MyDir') |
#6
|
|||
|
|||
Хочу уточнить. CreateDirectory создает папку только в той директории, которая уже существует, а ForceDirectories прокладывает весь путь, строя папки которых не существует.
Пример: У тебя есть папка "с:\ххх", она пуста. "с:\ххх\ааа\ссс" CreateDirectory построить не сможет, т.к. папка "ааа" не существует, а ForceDirectories сможет! |
#7
|
||||
|
||||
Можно ещё вот так:
Код:
CreateDir('C:\YourDirectory') |
#8
|
||||
|
||||
На мой взгляд, нужно использовать ForceDirectories, если прога пишется с использованием VCL, или CreateDirectory, если на WinAPI.
CreateDir же существует как в Апи, так и в Дельфовом модуле SysUtils, что не очень удобно. Еще для извращенцев есть CreateDirectoryEx =) THE CRACKER IS OUT THERE |
#9
|
|||
|
|||
попробуй
if createdir('c:\base\'+DateToStr(Date)) = true then showmessage('sucsesfull'); правда я пытался сделать чтоб прога в моей дериктории создавала папку с названием месяца (числом) а уж в ней текстовый файл с названием "дата".тхт Последний раз редактировалось wrag, 05.11.2007 в 01:43. |
#10
|
|||
|
|||
Спасибо за помощь!
Например если мне надо создать в текущей директории папку, то Код:
CreateDirectory(getcurrentdir+'\123') А вот Код:
ForceDirectories(getcurrentdir+'\123') |
#11
|
|||
|
|||
Не работает, потому что ошибка. Вот так всё работает:
Код:
procedure TForm1.FormCreate(Sender: TObject); begin CreateDir(getcurrentdir+'\123'); CreateDirectory(PAnsiChar(getcurrentdir+'\456'), nil); end; |
#12
|
|||
|
|||
Спасибо!
|