[~ SaM ~]

Привет народ!!!У меня такой впросик назрел....
А как программно можно создать папку на винте для последуюющей записи в нее файлов???

Всем заранее огромное спасибо!!!

[Keygenmusic]

CreateDirectory(
LPCTSTR lpPathName, // pointer to a directory path string
LPSECURITY_ATTRIBUTES lpSecurityAttributes // pointer to a security descriptor
);

типа так наверно CreateDirectory("C:\MyDir", 0);

[~ SaM ~]

Спасибо!!!!Ща буду пробовать!!!!!

[~ SaM ~]

Спасибо!!!!Ща буду пробовать!!!!!

[Tigrillo]

if not DirectoryExists('c:\MyDir') then
ForceDirectories('c:\MyDir')

[JCDArtem]

Хочу уточнить. CreateDirectory создает папку только в той директории, которая уже существует, а ForceDirectories прокладывает весь путь, строя папки которых не существует.
Пример:
У тебя есть папка "с:\ххх", она пуста.
"с:\ххх\ааа\ссс" CreateDirectory построить не сможет, т.к. папка "ааа" не существует, а ForceDirectories сможет!

[Winny]

Можно ещё вот так:

Код:

CreateDir('C:\YourDirectory')

[4kusNick]

На мой взгляд, нужно использовать ForceDirectories, если прога пишется с использованием VCL, или CreateDirectory, если на WinAPI.
CreateDir же существует как в Апи, так и в Дельфовом модуле SysUtils, что не очень удобно.

Еще для извращенцев есть CreateDirectoryEx =)

[wrag]

попробуй
if createdir('c:\base\'+DateToStr(Date)) = true then
showmessage('sucsesfull');

правда я пытался сделать чтоб прога в моей дериктории создавала папку с названием месяца (числом) а уж в ней текстовый файл с названием "дата".тхт

[~ SaM ~]

Спасибо за помощь!
Например если мне надо создать в текущей директории папку, то

Код:

CreateDirectory(getcurrentdir+'\123')

не катит!
А вот

Код:

ForceDirectories(getcurrentdir+'\123')

работает!!!

[AlexSku]

Не работает, потому что ошибка. Вот так всё работает:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateDir(getcurrentdir+'\123');
  CreateDirectory(PAnsiChar(getcurrentdir+'\456'), nil);
end;

[~ SaM ~]

Спасибо!