CreateDir

← →
V (2010-04-09 18:41) [0]

Добрый вечер.

Подскажите, пожалуйста, почему не работает конструкция

ShowMessage(IntToStr(Integer(CreateDir((ExtractFilePath(Paramstr(0))+(ExtractFileName(Path))+"\")))));

Где Path - путь к файлу, который не имеет расширения.
Задача - создать папку названную по имени файла.

если CreateDir((ExtractFilePath(Paramstr(0))+"ПАПКА ЛЮБОЕ ИМЯ\")), то все прекрасно создается.

← →
И. Павел © (2010-04-09 19:32) [1]

У меня работает. Может быть не хватает прав, или такая папка уже существует?

← →
И. Павел © (2010-04-09 19:34) [2]

Ну и не мешало бы указать, чему равно (ExtractFilePath(Paramstr(0))+"ПАПКА ЛЮБОЕ ИМЯ\".
Если параметр не взят в кавычки, он может урезаться по первому пробелу, так что проверьте, что лежит в Paramstr(0)

← →
V (2010-04-10 12:10) [3]

Дело в том, что нужно было создать папки в том каталоге, в котором лежат файлы без расширения.

тоесть у нас есть файл
d:\111\файл1

и нужно создать папку
d:\111\файл1\

... Пришлось пересмотреть взгляды на жизнь и создавать папки в другом месте

CreateDir Найти похожие ветки