strServer = "здесь - NetBIOS-имя файлового сервера"
strList = vbNullString
On Error Resume Next
Set objCollection = GetObject("WinNT://" & strServer & "/LanmanServer")
If Err.Number = 0 Then
For Each objItem In objCollection.Resources
strList = strList & objItem.Get("User") & " -> " & objItem.Get("Path") & vbNewLine
Next
Set objCollection = Nothing
Set objItem = Nothing
If Len(strList) > 0 Then
MsgBox strList
Else
MsgBox "Открытых файлов не найдено."
End If
Else
MsgBox "Ошибка обращения к службе ""СЕРВЕР"": " & Err.Number & vbNewLine & Err.Description
Err.Clear
End If
Одновременная работа с файлами по сети несколькими пользователями. Excel VBA
Ситуация такая:
на компьютерах, работающих в ЛВС, стоит программа, часть данных, которой расположены на сервере. Пользователи, во время работы, часть файлов загружают только для чтения (забрать данные) и 1 файл, конфигурационный, для чтения и записи.
структура конфигурационного файла:
1 столбец - номер конфигурации, 2й и далее - данные.
соответственно, когда один из пользователей сохраняет свои данные, программа проверяет - не записаны ли аналогичные данные ранее, если нет, то сохраняет новый номер конфигурации.
пока к файлу обращаются последовательно, проблем нет, как только произошло одновременное открытие файла - проблема.
как вариант, сейчас пробую при открытии делать проверку "ActiveWorkBook.ReadOnly", но мне не нравится, что приходится файл открывать, да и табличка "Файл стал доступным" достает (можно ли ее ликвидировать?)
лучшим был бы вариант - проверять, открыт ли файл другим пользователем и если открыт, то гонять цикл ожидания с каким-нибудь прогресс-баром.
можно ли это осуществить?
на компьютерах, работающих в ЛВС, стоит программа, часть данных, которой расположены на сервере. Пользователи, во время работы, часть файлов загружают только для чтения (забрать данные) и 1 файл, конфигурационный, для чтения и записи.
структура конфигурационного файла:
1 столбец - номер конфигурации, 2й и далее - данные.
соответственно, когда один из пользователей сохраняет свои данные, программа проверяет - не записаны ли аналогичные данные ранее, если нет, то сохраняет новый номер конфигурации.
пока к файлу обращаются последовательно, проблем нет, как только произошло одновременное открытие файла - проблема.
как вариант, сейчас пробую при открытии делать проверку "ActiveWorkBook.ReadOnly", но мне не нравится, что приходится файл открывать, да и табличка "Файл стал доступным" достает (можно ли ее ликвидировать?)
лучшим был бы вариант - проверять, открыт ли файл другим пользователем и если открыт, то гонять цикл ожидания с каким-нибудь прогресс-баром.
можно ли это осуществить?
Цитата: ziv
... лучшим был бы вариант - проверять, открыт ли файл другим пользователем и если открыт, то гонять цикл ожидания с каким-нибудь прогресс-баром.
можно ли это осуществить?
можно ли это осуществить?
Можно. Например, путём обращения с помощью ADSI к службе [color=green]"Сервер"[/color] ([color=green]"LanmanServer"[/color]) компьютера, являющегося файловым сервером.
Пример на VB(A,S):
Код:
Примечание: для обращения к службе необходимы соответствующие привилегии.
Спасибо!
А как можно убрать сообщение о том, что файл свободен для записи?
А как можно убрать сообщение о том, что файл свободен для записи?
Цитата: ziv
А как можно убрать сообщение о том, что файл свободен для записи?
Скорее всего, никак, поскольку это сообщение генерируется не приложением, а ОС (нажатие кнопки "Уведомить" создаёт подписку на соответствующее системное событие).
Цитата: Dmitrii
Скорее всего,
Спасибо.
А если я, перед записью в файл, буду оставлять некую метку, например в текстовый файл писать "1" или "0" (файл свободен/занят) - на сколько это коряво?
Попробовал под Access сделать сохраняемые таблицы, но там то-же самое - база занята - только время потерял :)
кстати, а то, что база под Акцесс кем-то уже открыта, можно определить более простым путем, чем используя ADSI?