![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
![]()
Привет всем!
Создаю новую директорию: Код:
|
![]() |
![]() |
![]() |
#2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
![]()
CreateDirectory(Pchar(ExtractFilePa th(application.exename)+'scan\' + DateTostr(Date)), nil)
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
![]()
1) Спс, работает, но...! Теперь, если каталога 'Scan' не существует, то не работает. Ошибок не выдает, просто каталоги не создаются. А если Scan есть то все нормал. что это?
2) Сразу встречный вопрос, нужно чтобы новый каталог создавался каждое 1 число месяца, т.е.: Код:
Последний раз редактировалось John_chek; 30.05.2007 в 10:20. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
Раздели функцию: сначала создай директорию scan а потом уже свою. Просто у тебя эта функция пытается создать директорию в директории которой не существует(извини за тафтологию). Лучше поставь проверку на наличие дироектории scan и в случае если она не существует, то создавай её это будет правильнее.
Удачи. |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
по второму вопросу попробуй проверку текущей даты:
if (datetostr(Now)[1]='0') and (datetostr(Now)[2]='1') then Первое число месяца |
![]() |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
![]() Цитата:
Код:
Последний раз редактировалось John_chek; 30.05.2007 в 11:51. |
|
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,091
|
![]()
кажеца в uses DateUtils есть функция DayOf, которая возвращает число месяца даты
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
Ну если дата не принципиальна, тогда создавай директорию по номеру месяца и первое число ни причём:
var dt: TDateTime;
Year, Month, Day :Word; begin dt := date; DecodeDate(dt, Year, Month, Day); if DirectoryExists(Pchar(ExtractFilePa th(application. exename)+'scan\'+inttostr(Month)+'. '+inttostr(Year))=false then begin CreateDirectory(Pchar(ExtractFilePa th(application.exename)+'scan\'+int tostr(Month)+'.'+inttostr(Year)), nil); end; |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]() |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
![]()
Большой респект! Все получилось, супер просто!!!
![]() |
![]() |
![]() |