Главная страница
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.228 c
2-1270034843
F$
2010-03-31 15:27
2010.08.27
Int64 как Integer


15-1266979814
brother
2010-02-24 05:50
2010.08.27
IPv6


15-1264762579
И Павел
2010-01-29 13:56
2010.08.27
Стоит ли превращать сайт в файлообменник?


2-1275109223
User
2010-05-29 09:00
2010.08.27
Exception при записи файла в недоступную для записи папку


2-1269172946
Первокурсница
2010-03-21 15:02
2010.08.27
Программа вылетает (delphi 7), свойство кнопки Enabled или Visibl