PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Проблема с короткими именами DOS

Проблема с короткими именами DOS

Страница: 1

Сообщений 1 страница 3 из 3

1

  • Автор: Rjevsky
  • Новичок
  • Зарегистрирован: 15.11.2015
  • Приглашений: 0
  • Сообщений: 2
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    31 минуту
  • Последний визит:
    15.11.2015 22:51:06

Есть простой код:

Код:
DateCrNew.q = GetFileDate("d:\test\201511~1.LOG", #PB_Date_Modified)
DateCrtNew.s = FormatDate("%yyyy%mm%dd%hh%ii%ss", DateCrNew)
Debug(DateCrtNew)

Имеем файл: d:\test\20151115__.log Других файлов в папке нет.
Deug возрвращает дату модификации файла 20151115__.log, а нужно, что бы возвращал 19700101000000, т.е. 0 до FormatDate.
Как добиться правды?

Отредактировано Rjevsky (15.11.2015 14:04:15)

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3033
  • Уважение: [+99/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 01:24:13
Код:
Procedure.s GetLongFromShort(cShort.s)
  Protected cLong.s = Space(#MAX_PATH)
  GetLongPathName_(cShort, @cLong, #MAX_PATH)
  ProcedureReturn cLong
EndProcedure

DateCrNew.q = GetFileDate(GetLongFromShort("d:\test\201511~1.LOG"), #PB_Date_Modified)
DateCrtNew.s = FormatDate("%yyyy%mm%dd%hh%ii%ss", DateCrNew)
Debug DateCrtNew

0

3

  • Автор: Rjevsky
  • Новичок
  • Зарегистрирован: 15.11.2015
  • Приглашений: 0
  • Сообщений: 2
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    31 минуту
  • Последний визит:
    15.11.2015 22:51:06

Пётр, спасибо, но у меня не заработало.

Но решение нашёл: https://technet.microsoft.com/en-us/library/ff633453(v=ws.10).aspx
Мне после правки реестра и перезагрузки, помогло.

Отредактировано Rjevsky (15.11.2015 18:47:00)

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Проблема с короткими именами DOS