Как создать программно каталог?

← →
mozgan (2005-12-26 12:01) [0]

Всем привет! Я самоучка и есть один вопрос, как поравильно пользоваться функцией CreateDirectory? Уж очень интересная штучка, а как и что писать - не знаю. Если не трудно, МАСТЕРА, подскажите пожалуйста! :(

← →
evvcom © (2005-12-26 12:04) [1]

Проще ForceDirectory

← →
mozgan (2005-12-26 12:06) [2]

ForceDirectory? Ой не знаю такую...:(((
Если не против - черкни пример, как правильно записать-то!
Я чайник:(((((((

← →
Dmitrij_K (2005-12-26 12:09) [3]

Cоздать директорию можно и mkdir

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

те
if CreateDirectory("c:\lalala\",nil) then begin end

F1 в помощь
+)

← →
mozgan (2005-12-26 12:13) [4]

Dmitrij_K ты знаешь, я плохо понимаю (пока) "самое важное", т.е. например вот я пишу
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateDirectory("C:\NewCatalog");
end;

а компилятор ругает, типа (недостаточно актуальных параметров). Вот именно это для меня и преграды. Спасибо за помощь!!!

← →
evvcom © (2005-12-26 12:13) [5]

Прошу прощения:
function ForceDirectories(Dir: string): Boolean;
какой тебе пример надо? Тут и так все понятно. Dir только должен быть корректным и все условия.

← →
mozgan (2005-12-26 12:15) [6]

evvcom! Посмотри, пожалуйста, что я тута не правильно пишу.
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateDirectory("C:\NewCatalog");
end.

> типа (недостаточно актуальных параметров).

ну так прототип функции смотри, там еще
> LPSECURITY_ATTRIBUTES lpSecurityAttributes

напиши ForceDirectories("C:\NewCatalog\NewCatalog"); и будет работать, причем даже не надо заботиться, чтобы "C:\NewCatalog" уже существовала.

> CreateDirectory("C:\NewCatalog");

CreateDirectory("C:\NewCatalog", nil);

← →
mozgan (2005-12-26 12:19) [9]

evvcom! У меня сработала! СПАСИБО!!!!!:))))))))))))))
Дай адресок, что-ли, я тебе кусочек торта скину на новый год.
Ты мне помог за пять сек, я один чел за литр выступал.
Не боись - ты мне брат!
Спасибо ещё раз!

Как создать программно каталог? Найти похожие ветки