| Вопрос: Do While - ослеп | Добавлено: 17.06.05 11:09 |
Автор вопроса:  Stef
|
|
Привожу пример
Dim NameF As String = Dir("d:Modem\Files\*.*") Do While NameF <> "" Rename("d:Modem\Files\" + NameF, "d:Modem\Rabota\" + NameF) NameF = Dir() Loop Этот блок должен отрабатывать каждые 5мин. Запускаю - отрабатывает,НО проходит какоето время и он как-бы "слепнет" - не видит файлов в папке (это лиш частичка огромного модуля который имеет порядка 10ти разных блоков которые успешно отрабатываются ). Подозрение палает на :Do While........ Loop Вопрос : Как обезопасить себя от таких казусов, поскольку прога должна работать 25час\сутки. Может есть аналогичные ф-ции, выслушаю все замечания и предложения |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 17.06.05 12:05 |
|
25час\сутки
Как это так??????? |
||
|
Номер ответа: 2 Автор ответа:  Stef Вопросов: 16 Ответов: 17 |
Профиль | | #2 | Добавлено: 17.06.05 13:10 |
| Круглосуточно и без збоев, иначе будет попа!!!!!!!!!!!!!!! | ||
|
Номер ответа: 3 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 18.06.05 12:17 |
|
Dir - в топку!
В .NET нужно использовать методы System.IO.Directory.GetFiles и, соответственно, System.IO.File.Move. Dim fns() As String = System.IO.Directory.GetFiles("d:Modem\Files\*.*"
For Each fn As String In fns System.IO.File.Move("d:Modem\Files\" + fn, "d:Modem\Rabota\" + fn) Next |
||
Страница: 1 |