Доступ К Сетевому Диску, Библиотека И Права

@sovt · Регистрация: 27.10.2011

Студворк — интернет-сервис помощи студентам

Ситуация...
Крепит человек файлик с сетевого диска, выбирает через FileOpenDialog, при вставке его в RT-поле вылезает сообщение "File Not Found"
Сначала думал путь к файлу длинный, потом начало такое происходить уже с короткими именами.
Последний файл был общей длинной 194 символа, не 255 же.
Доступ, чаще всего, в папки на сетевых дисках разграничены: одни отделы их видят, другие нет.
И вот тут задумался, права при прикреплении программно в RT поле чьи используются?
Библиотека, в которой прописан весь год был подписана мной, и сервером была тоже, ошибка все равно есть.
Получается что выбирая файл пользователь имеет к нему доступ, а дальнейший код этот файл в упор не видит?
Нашел вот такое сообщение: http:///ipb.html?s=&sh...ost&p=52990
Прочел всю ветку, это ад...
Всегда считал, что код в лотусе, почти всегда используется от прав пользователя, а по ходу нет. Или я не прав?
Прошу помощи, в упор не понимаю.

P.S. Я конечно могу сделать на лету простой батник с одной строкой: {copy %1 %2 /Y}, а потом запускать его через Shell, но что-то меня привлекает такое решение, да и пользователи на Mac у нас есть.

@myskProstomysk · 22.08.2013, 18:42

Наверное ты что-то не то делаешь или не договариваешь. Если все локально - то права локального пользователя.
Если через агент на сервере - соответственно права серверного пользователя
Еще есть смысл узнать о правах доступа к файлу у пользователя. Встречал такое, что было запрещено копирование с сетевого диска.

Набросал на скорую руку Action

.SpoilerTarget">Спойлер: Раскрывающийся Текст

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
 
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
 
Dim files As Variant
 
 
Set doc = ws.CurrentDocument.Document
 
files = ws.OpenFileDialog(True, "File List", "", "c:")
 
Set rtitem = New NotesRichTextItem( doc, "Body" )
 
Forall filelist In files
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filelist)
End Forall
 
Call doc.Save( True, False, True )
End Sub

Атачил файл с сетевого диска. Работает нормально. Файл цепляется.

@sovt · 23.08.2013, 10:45

вот на этой строке и ошибка:

LotusScript
1
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filelist)

Нет файла и все, выполняется из кнопки на представлении.
Права к сетевому диску разграничны через Active Directory, думаю проблема тут.

@rymsk · 23.08.2013, 11:48

Если файл можно из проводника куда-скопировать, то будет цеплятся. Иначе такое когда только права list на каталог\файл.

@dushom · 25.08.2013, 06:04

А папки небось по русски обзываются, если ДА, то дели 256 на два - русские буквы 2 байта занимают....
Так что если на "шарах" всё по русски, то и в 194 символа может не влезть

@sovt · 25.08.2013, 09:31

DuChan
Мне казалось 256 это именно символов.
Попробую в unicode перевести при прикреплении, там точно в байтах расчет.

@sovt · 28.08.2013, 19:46

Ну в целом да, права были ни при чем. Проблема в 260 символов WinAPI, хотя я всегда думал что русские символы только в Unicode кодируются 2-мя знаками.
Метод преобразования {\\?\} не работает, ровно до первого пробела сработать может, но не нормализует путь.

Теперь копирую файл в локальный темп и тяну оттуда в Lotus, естественно только для win.
Создаю bat-файл filesCopy.bat со строкой: {copy %1 %2 /Y}
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Для тех кто не понял что такое %1, %2 и /Y</div></div><div class="sp-body"><div class="sp-content">
/Y - флаг перезаписи, %i - это параметры, которые указываются при запуске bat
Парметров может быть от %1 - %9, есть еще параметр %0 - имя bat-файла.
При вызове параметры должны разделяться пробелом.
Подробнее тут: http://www.windowsfaq.ru/content/view/264/57/

Затем через WShell.Run запускаю и дожидаюсь окончания.

LotusScript
1
ReturnCode = WShell.Run({filesCopy.bat} & { "} & FilePath & {" } & newFilePath, 0, True)

кавычки для FilePath нужны если там есть пробелы, без них не копирует.
0 - не отображать окно, True - дождаться окончания.
Может кому пригодится, хотя..

@dushom · 29.08.2013, 06:56

ну уж если Вы используете WSH, может попробывать путь перобразовать к формату "8.3"?
например через "Scripting.FileSystemObject"->ShortPath., правда для сетевых безбуквенных не знаю, заработает или нет - попробуйте...

Да и скопировать файл можно:

Code
1
2
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "C:\*.bat", "A:\", 0

CopyFile(<Source>,<Destination>,<Overwri te>)
Назначение: копирует один или несколько файлов.
Параметры:
<Source> - строка, путь к источнику копирования (что копировать). В последнем компоненте параметра можно использовать групповые символы "*" и "?".
<Destination> - строка, путь назначения (куда копировать).
<Overwrite> - необязательный, булево (число). Перезаписывать существующие файлы, или нет. По умолчанию - True (перезаписывать). Если файл, который нужно перезаписать, имеет атрибут read-only, возникнет ошибка (независимо от установки этого параметра).

@sovt · 29.08.2013, 09:25

Кстати да, FSO.CopyFile прекрасно работает. А ожидание конца работы будет?

@tmyky · 29.08.2013, 22:30

юникод бывает разный, в винде, русские символы - 2-а знака - это описано (ссылки гуглятся)...
здесь можно сделать исторические отступления ;), но в контексте задачи нет необходимости

@tmyky · 29.08.2013, 22:47

есть всякие "но и если" - http://msdn.microsoft.com/en-us/library/aa...47.aspx#maxpath для длины пути

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124

	Доступ К Сетевому Диску, Библиотека И Права 22.08.2013, 17:51. Показов 12617. Ответов 10 Метки нет (Все метки) Ситуация... Крепит человек файлик с сетевого диска, выбирает через FileOpenDialog, при вставке его в RT-поле вылезает сообщение "File Not Found" Сначала думал путь к файлу длинный, потом начало такое происходить уже с короткими именами. Последний файл был общей длинной 194 символа, не 255 же. Доступ, чаще всего, в папки на сетевых дисках разграничены: одни отделы их видят, другие нет. И вот тут задумался, права при прикреплении программно в RT поле чьи используются? Библиотека, в которой прописан весь год был подписана мной, и сервером была тоже, ошибка все равно есть. Получается что выбирая файл пользователь имеет к нему доступ, а дальнейший код этот файл в упор не видит? Нашел вот такое сообщение: http:///ipb.html?s=&sh...ost&p=52990 Прочел всю ветку, это ад... Всегда считал, что код в лотусе, почти всегда используется от прав пользователя, а по ходу нет. Или я не прав? Прошу помощи, в упор не понимаю. P.S. Я конечно могу сделать на лету простой батник с одной строкой: {copy %1 %2 /Y}, а потом запускать его через Shell, но что-то меня привлекает такое решение, да и пользователи на Mac у нас есть. 0

@rymsk 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 882
	23.08.2013, 11:48
	Если файл можно из проводника куда-скопировать, то будет цеплятся. Иначе такое когда только права list на каталог\файл. 0

@dushom 0 / 0 / 0 Регистрация: 15.09.2006 Сообщений: 99
	25.08.2013, 06:04
	А папки небось по русски обзываются, если ДА, то дели 256 на два - русские буквы 2 байта занимают.... Так что если на "шарах" всё по русски, то и в 194 символа может не влезть 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	25.08.2013, 09:31
	DuChan Мне казалось 256 это именно символов. Попробую в unicode перевести при прикреплении, там точно в байтах расчет. 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	29.08.2013, 09:25
	Кстати да, FSO.CopyFile прекрасно работает. А ожидание конца работы будет? 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	29.08.2013, 22:30
	юникод бывает разный, в винде, русские символы - 2-а знака - это описано (ссылки гуглятся)... здесь можно сделать исторические отступления ;), но в контексте задачи нет необходимости 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	29.08.2013, 22:47
	есть всякие "но и если" - http://msdn.microsoft.com/en-us/library/aa...47.aspx#maxpath для длины пути 0