Сохранение файла в файловой системе сервера

  • Автор темы zum
  • Дата начала
Z
#1
Собственно как это сделать?
У меня идея одна, заатачить файл к документу,запустить агента на сервере, который этот атач снимет и файл положит в папку какую надо....

Но не хочется писать агента для такой ерунды.

Может есть другое простое решение?
 
Z
#3
поднимать на сервере его не есть гуд...
программно может какнить?
 

lmike

нет, пердело совершенство
Премиум
27.08.2008
6 567
263
#4
Z
#5
просто, есть например возможность запустить агента на сервере, думал чтото такое, но без агента, видимо никак)
Лана агент так агент
 
A

Anonimous

#6
Написал код, он выгружает данные в файл txt. Мне надо выгрузить его на сервер, задав путь к серверу, путь к папке. Filecopy "c:\notesaltas.txt", "\\ip-к сервера\D:\notesaltas.txt" не помогло, он матерится "File not found".
Пробую

Dim filenames As String
filenames = ws.SaveFileDialog( _
False,"File name",, "\\ip-к сервера\d:\work", "notesaltas.txt")

Но он, к сожалению, предложил лишь локальные папки.
Можно ли вообще Лотусскриптом выгрузить файл на сервер?
 
A

Anonimous

#8
И это пробовал
ws.SaveFileDialog( _
False,"File name",, "\\IP сервера\D$", "notesaltas.txt")
Не просит авторизоваться, все мне локальные диски открывает
 

VladSh

начинающий
Lotus team
11.12.2009
1 260
5
#11
Anonimous
Способ прямого сохранения на сервер - это, на самом деле, через задницу.
С сервером надо общаться через агентов. Создаём док, вкладываем файл, запускаем агент с помощью RunOnServer и передаём параметром noteId созданного документа, а в агенте пишем код, сохраняющий файл на диск /для работы с файловой системой уровень доступа агента должен быть = 2/.
 
A

Anonimous

#12
А так не получилось. Я создал агента, к-рый выполняется на сервере. Во вьюхе сделал кнопку, в к-рой создается документ, передаваемый агенту.
В поле этого документа записываю путь к файлу, к-рый хочу создать на известном сервере так:

docCur.ReplaceItemValue "FileName", "\\IP-сервера\d$\EquipmentInfo.txt"

потом вызываю агент

agent.RunOnServer(docCur.NoteID)

В самом агенте следующий код

Dim docCur As NotesDocument
Set docCur = session.CurrentDatabase.GetDocumentByID(session.CurrentAgent.ParameterDocID)

If docCur Is Nothing Then Exit Sub

fileNum% = FreeFile()
fileName$ =docCur.Getitemvalue("FileName")(0)

Open fileName$ For Output As fileNum%

И код какой был.

Файл не создался.
Код агента работает, проверял на стороне клиента. Про уровни безопасности агента не забыл, дал сразу третий.
 
A

Anonimous

#13
Нет, понял. Забыл в агенте убрать UI объекты :lol: . Работает. Спасибо