Проверка наличии сетки

Lusi

Гость

12.01.2012 13:46:49

Всем доброго дня и с наступившим Новым Годом.Удачи и семейного счастья.
Есть программка которая при открытии проверяет наличие обновленного файла в конкретной папке находящейся на сервере.Если имена файлов совпадают открывается файл если не совпадают то выводится сообщение после чего файл закрывается..Если сервер в сети проблем нет...но если он выключен (нет его в сети по разным причинам) тогда проблема..все равно выводиться сообщение что которое должно выводится при не совпадении имен . Вопрос.Как осуществить проверку наличии сетки по данному пути и если сетка отсутствует вывод сообщения типа "Сервер не доступен" или " Папка не доступна"...
Заранее всем спасибо за помощь...

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 12.01.2012 14:17:47 Проверьте доступность сервера при помощи команды PING (макросом VBA): http://excelvba.ru/code/Ping Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

12.01.2012 14:18:38

Кто-то выкладывап:
Public Function ExistDir(ByVal dirName As String) As Boolean
ExistDir = False
On Error GoTo f1
If Len(dirName) < 2 Then GoTo f1
If Right(dirName, 1) = "\" Then dirName = Left(dirName, Len(dirName) - 1)
If Left(dirName, 2) = "\\" Then
ExistDir = (Dir(dirName + "\", vbDirectory) <> "")
Else
ExistDir = (Dir(dirName, vbDirectory) <> "")
End If
f1:
On Error GoTo 0
End Function

Я сам - дурнее всякого примера! ...

Lusi Гость	#4 12.01.2012 14:39:48 Спасибо огромное всем кто откликнулся... Не сочтите за дерзость..и не поймите превратно (типа лень самой ковыряться) я пробовала не получается..Если можно на моем примере продемонстрировать проверку..

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 12.01.2012 14:48:11 {quote}{login=Lusi}{date=12.01.2012 02:39}{thema=}{post}Если можно на моем примере продемонстрировать проверку..{/post}{/quote}Каким образом?

Lusi Гость	#6 12.01.2012 14:52:45 Тьфу балда...... Всех прошу извинить меня за не внимательность ...выкладываю файл. Прикрепленные файлы post_296206.xls (13.5 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 12.01.2012 15:05:50 -=24242=- Прикрепленные файлы post_296211.xls (21.5 КБ) Я сам - дурнее всякого примера! ...

Lusi Гость	#8 12.01.2012 15:12:23 Спасибо KukLP... и всем кто проникся моей проблемой.. Посмотрела Ваш файл ..не проверяет при открытии... Появился модуль не связанный ни с чем... Или я что то не понимаю...Извините если что не так..

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#9 12.01.2012 15:16:05 У меня проверяет... Прикрепленные файлы post_296221.gif (5.67 КБ) Я сам - дурнее всякого примера! ...

Kuzmich Пользователь Сообщений: 8191 Регистрация: 21.12.2012	#10 12.01.2012 15:36:13 И у меня проверяет... и такая же картинка как у KukLP Так у вас наверное есть связь с сервером, поэтому и нет предостерегающего сообщения

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#11 12.01.2012 15:52:56 On Error Resume Next Dim s$ s = Dir("\\Office\Обновления\Прогр_расчета\*") If s = "" Then MsgBox "неправильный путь или отключено сетевое устройство": Exit Sub Живи и дай жить..

Читают тему