| Вопрос: Помогите кто может! | Добавлено: 17.08.04 15:58 |
Автор вопроса:  EDIK
|
| Мне нужно написать программу которая бы провиряла каждые 30 минут если там файл (указанный мною вернее начинается на Х0*.*) и если файл пришёл то Выдовала сообшение!!! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 17.08.04 16:04 |
ПАпобуй напЕши, Штобы провИряла и выдОвала.. двойку за ломанный русский язык Вы, молодой человек, ещё не заслужили 
|
||
|
Номер ответа: 2 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 17.08.04 17:41 |
|
Ну если нужно написать - напиши, в чём же дело?
А если в процессе написания что-либо непонятно будет, спросишь, думаю, на конкретный вопрос ответ получишь всегда. |
||
|
Номер ответа: 3 Автор ответа: Eddie Вопросов: 11 Ответов: 120 |
Профиль | | #3 | Добавлено: 17.08.04 18:46 |
|
А Почему бы не сделать так :
1-запом1нан1е времен1 напр1мер ; 10.50.35 2-в масс1ве, переменной, лейболе поставь 00,30,00 (Напр1мер q as date) 3-Отн1ман1е : q + запом1нан1е - Time ... и когда будет 00 00 00 то будет МСГБокс Зы: 3ксперимент1руй ... |
||
|
Номер ответа: 4 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #4 | Добавлено: 17.08.04 18:47 |
|
ух Ты, у меня С1няя Звезда d
|
||
|
Номер ответа: 5 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #5 | Добавлено: 17.08.04 22:31 |
| не вн1мательно проч1тал, а провер1ть Ф1л Ты могешь т1па так с помощью Функц11 Open, 1мя Ф1ла i Путь ... | ||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 18.08.04 10:54 |
| Навiщо Open? Достатньо Dir | ||
|
Номер ответа: 7 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #7 | Добавлено: 18.08.04 12:56 |
|
St0p fl00ding this forum! Just try this :
1) Create a timer with interval 6000 named "tmrMYTimer" 2) Dim an Integer variable named "TimeLeft" 3) (Optional) Create an integer constant named "TimeCheck" and value 30 And use this code: Private Sub tmrMYTimer_Timer() TimeLeft = TimeLeft + 1 if TimeLeft >= TimeCheck then 'May be If TimeLeft >= 30 Then FileName = "C:\YourFile.ext" If dir(FileName) <> "" then 'Your Message Here Else 'File doesn't exist End if TimeLeft = 0 End if End sub |
||
Страница: 1 |