Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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\

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
4-1238501632
JayMax
2009-03-31 16:13
2010.08.27
Проблема с запуском системного приложения с Delphi


2-1267750043
allrussia
2010-03-05 03:47
2010.08.27
Упрощение процедур


4-1233843462
R13
2009-02-05 17:17
2010.08.27
Обрезка канваса при методе PrintWindow


2-1273815100
tippa
2010-05-14 09:31
2010.08.27
алгоритм удаления дубликатов из списка


15-1266047756
oldman
2010-02-13 10:55
2010.08.27
Ну вот и началась Олимпиада!