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

[zum]

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

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

Может есть другое простое решение?

 

[lmike]

может просто WebDav ?

Ссылка скрыта от гостей

 

[zum]

поднимать на сервере его не есть гуд...
программно может какнить?

 

[lmike]

программно может какнить?

секундочку, а это что:

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

Может есть другое простое решение?

- явное противоречие не?

 

[zum]

просто, есть например возможность запустить агента на сервере, думал чтото такое, но без агента, видимо никак)
Лана агент так агент

 

[Anonimous]

Написал код, он выгружает данные в файл 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")

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

 

[Мыш]

\ip-к сервера\d:\work

D: не прокатит, нужен путь к шаре (например, D$). И, возможно, надо будет авторизоваться для доступа к ней.

 

[Anonimous]

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

 

[dimat]

Anonimous
А если подключить сетевую папку как диск?

 

[Anonimous]

Тогда дал сохранить. Спасибо

 

[VladSh]

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

 

[Anonimous]

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

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%

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

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

 

[Anonimous]

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