Просмотр содержимого каталога

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Просмотр содержимого каталога (Просмотр содержимого каталога несколько раз)

Просмотр содержимого каталога

A_3485

Дата: Среда, 06.07.2016, 16:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Уважаемые форумчане доброго времени суток!
Я пытаюсь решить такую задачу. У меня каждый день в разное время (с 9:00 до 17:00) приходит текстовый файл с информацией. Имя каталога, куда поступает информация я знаю. Так как через макросы в течении всего дня у меня много-чего обрабатывается, я подумал, что в определенное время (9:00) можно запустить таймер и установить процедуру, которая бы просматривала нужный мне каталог. Если информация есть, то выдаст сообщение. Когда настанет время 17:00 программа перестанет работать. Пока дельного ничего не придумывается, а получается полный бред и выдает ошибки......

[vba]

Код

Sub Запуск_таймера()
Application.OnTime TimeValue("09:00:00"), "Программа"
End Sub

Sub Программа()

x = "С:\Новая_папка\*.*"
file = Dir(x)

Do While file = ""
    Время = Time
        If Время = "17:00:00" Then: Exit Sub

        If file <> "" Then MsgBox "Есть новая информация": Exit Sub

file = Dir
Loop

[/vba]
[moder]Тема закрыта. Дублирование[/moder]

Сообщение отредактировал Pelena - Среда, 06.07.2016, 17:00

Ответить

Просмотр содержимого каталога (Просмотр содержимого каталога несколько раз)

Страница 1 из 1
1