Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lotus Lotus script. Первая суббота месяца https://www.cyberforum.ru/ lotus-programming/ thread2607424.html
Как можно определить, что текущий день - это первая суббота месяца?
Lotus Вывод разных Subform по формуле в поле Computed Subform
Добрый день! Работаю с лотусом недавно. Разрабатываю WEB приложение. В котором создал Форму (Form). Создал разметку (Хедер, футер, меню). В основном контенте вывожу Subform через поле Computed...
Lotus Метка для сообщения "Прочитано/непрочитано"
Задача такая: Необходимо в списке сообщений пользователя анализировать "Прочитано" или "Непрочитано" сообщение. Прочитанные нужно удалить. Должна же быть метка сохраненная в документе к которой можно...
Lotus Lotus script. Пометка "Высокая важность" письма Вопрос следующий: При обходе писем в списке почтовых писем в базе данных пользователя, Можно ли определить программно есть ли пометка "Высокая важность" письма. и если да, то это как? Всем... https://www.cyberforum.ru/ lotus-programming/ thread2572604.html
Lotus Ошибка агента по расписанию https://www.cyberforum.ru/ lotus-programming/ thread2513848.html
Доброго времени суток! Помогите плиз в такой ситуации. Есть агент, который сохраняет все вложения из всех писем в ящике. Периодически запускал его в ручную. Все работает. А тут настала необходимость...
2 Дневная бесплатная конференция по IBM Domino/Notes/Sametime/Traveler/Sametime Lotus
Дорогие друзья, с 10-11 Октября 2019 года , в Москве пройдет 2 дневная конференция посвященная Domino/Notes/Connections/Traveler/Low Code. Все это пройдет в предверии выхода Domino v11, Notes 11,...
Lotus IBM Lotus Notes Document link не удается открыть через C# Datagridview_DataGridViewLinkColumn
Привет всем! В Lotus Notes я делаю Copy Document Link и потом этот линк вставляю в excel. и через excel щелкаю по линку то всё хорошо в Lotus Notes отривает. В C# прописиваю: private void...
Lotus Количество пользователей на сервере Добрый день! Есть такой вопрос. Сколько пользователей может существовать на сервере? Есть необходимость создавать новых пользователей, но не знаю... упрусь ли я в какой-то предел по кол-ву или нет.... https://www.cyberforum.ru/ lotus-programming/ thread2485519.html
Lotus Отправка Rich Text по почте https://www.cyberforum.ru/ lotus-programming/ thread2469738.html
Доброго времени суток. Имеетя база с электронными ключами на каждого сотрудника. При продлении ключа требуется отправлять ключи и пароль к ним на имя сотрудника. В форме имеются поля: Text -...
Lotus Посчитать разнуцу между двумя датами Добрый день! Помогите посчитать разницу во времени между двумя датами. Есть 2 поля. DateWork и DateReady форматами дд.мм.гггг чч:мм. Как посчитать разницу между этими датами, чтобы она выводилась в... https://www.cyberforum.ru/ lotus-programming/ thread2469736.html
0 / 0 / 1
Регистрация: 17.01.2019
Сообщений: 47
0

Определить самый новый файл, его имя, дату и время

18.05.2020, 21:21. Просмотров 994. Ответов 7
Метки (Все метки)

Доброго времени суток!
Прошу помочь реализовать такую задачу. Не знаю возможно ли вообще такое реализовать в Lotus...
Необходимо по нажатию на кнопку найти самый новый файл с определенным расширением в папке. И в 3 поля формы проставить его имя, дату и время.

Если чисто Lotus'ом этого не сделать, то может возможно как-то прикрутить к этому код VBS? В нем как раз определяется все нужное.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim oLstFile : Set oLstFile = Nothing
  Dim oFile
  Dim goFS    : Set goFS    = CreateObject("Scripting.FileSystemObject")
  For Each oFile In goFS.GetFolder("C:\Myfolder").Files
      If "jpg" = LCase(goFS.GetExtensionName(oFile.Name)) Then
         If oLstFile Is Nothing Then 
            Set oLstFile = oFile ' the first could be the last
         Else
            If oLstFile.DateLastModified < oFile.DateLastModified Then
               Set oLstFile = oFile
            End If
         End If
      End If
  Next
  If oLstFile Is Nothing Then
     WScript.Echo "Файлы нужного расширения не найдены"
  Else
     WScript.Echo oLstFile.Name, "  ", oLstFile.DateLastModified
  End If
Спасибо

Вернуться к обсуждению:
Определить самый новый файл, его имя, дату и время
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2020, 21:21
Готовые ответы и решения:

Записать дату и время создания каждого файла в его имя
Здравствуйте! Прошу помощи. Есть каталог со множеством файлов (например, jpg, больше тысячи)....

Как определить самый новый процесс и завершить его?
привет. не подскажете как завершить самый новый процесс, необходимо сделать ч/з kill -9 может с...

В опредленном каталоге найти самый большой файл и вывести его имя
Имеется задания, в опредленном каталоге найти самый большой файл и вывести его. Нашел вывел, с...

Как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату?
Господа, как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату. В...

7
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.